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TO dEGIN READING THIS LISTING, LOCK FIRST 
AT THE CONSTANTS AT THE END AND FAMILIARICE 
YOURSELF WITH THEIR NAMES AND VALUES 

THE TRANSLATOR IS DIVIDED INTO TWO MAJOR 
CO-KOUTINES+ "SCAN? AND "GENT, 

SCAN HAS THE OUTY OF READING CARDS+ CONUEN~ 
SING IDENTIFIERS AND CONSTANTS INTO SIinGte 
ENTITIES AND TO FEED ITEMS, IN A CONVENIENT 
INTERNAL CODE+ ONE AT A TIME TO GEN, 

GEN HAS THE OUTY OF PRODUCING OBJECT 

CODE FROM THESE ITEMSe CONTROL 15S 

PASSED BETWEEN GEN AND SCAN IN A FASHION 
SUCH THAT EACH ROUTINE LOOKS LIKE A 
SUBROUTINE OF THE OTHER. 

THE PROGRAM BEGINS BY PRINTING THE TIite LINE 
FEEQING A CARDs AND GOING TO Trt 
INITIALIZATION ROUTINE? STEP Zl. 
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INFORMATION INSICE THE COMPILER IS TREATED IN 
TWO PRINCIPAL FORMATS+s ONE FOR THE SYMBOL. 
TABLE ENTRIES IN THE SCANNER» AND ANOTHER FOR 
GENERATOR CO#ROQUTI:*E, 


SYMa0L TABLE EQUIVALENTS ARE IN THE FORMAT 


KM AAAA LLLL 
WHERE LLLL IS A LINK TO THE NEXT SYMBOL» 
FOR SEARCHING 


K EQUALS 03 SIMPLE VARIABLE 

M IS o8 NO MEMORY ASSIGNMENT As YET 
AAAA 19 909000 

MIS 18 ASSIGNED AAAA IN UNIGUE 
STORAGE 

MIS 28 EQUIVALENCED, NOT YET 
ASSIGNED, AAAA IS LINK TO 

| OTHER MEMBERS OF THE 

EQUIVALENCE CLASS 

M IS 38 ASSIGNED AAAA IN COMMON 

M IS 48 A FORMAL PARAMETER: WHOSE 
SUBROUTINES ARE ASSIGNED 
AAAA+ AAAA+1L, AND AAAA+2 
IN UNIQUE, 

M IS 53 THE SYMBOL IS A 10 DIGIT 
CONSTANT. IF AAAA IS oe 
THIS CONSTANT HAS NOT BEEN 
NEEDED IN OSUVECT PROGRAM 
YET. ELSE IT IS ASSIGNED TO 
LOCATION AAAA IN UNIQUE, 


K EQUALS 33 ARKAY 
AAAA LINKS TO THE DIMENSION TABLE 
ENTRY» 4 IS IGNORED. THE DIMENSION 
TABLE HAS N41 ENTRIES IF THERE ARE N 
SUBSCRIPTS To THIS ARRAY. 


AAAASYt 3 ™ BBBB RRRR 
AAAA+1: 0 0 TTTT $855 
AAAA+21 60 0 CCCC 9000 
AAAA+ 3! o 0 Cccc 9000 ETC 


$SSS IS LINK oaCK TO SYMBOL TABLE 
ENTRY 

CCCC WORDS, IF PRESENT. ARE LINKS TO 
SYMBOL TABLE ENTRIES FOR CONSTANTS 
{EXCEPT FOR THE |.a4ST DIMENSION) 

TTTY IS THE TOTAL LENGTH OF THE ARRAY 
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A(i)s Tee THE FIRST CeLL 
OF THE ARRAYs IN UNTQUE 
STORAGE 

EQUIVALENCE ARRAY A(RRRR) + 
BBBB 15 LINK TO OTHER 
ELEMENTS IN EQUIVALENCE 
CLASS 

SAME AS M EQUAL TO 1 EXCEPT 
COMMON STORAGE 

FORMAL PARAMETER, BASE 
ADDRESS IS STORED IN 8x88 
OF UNIQUE STORAGE + 


LABEL 
AAAA 15 THE ASSIGNMENT IN 
PROGRAM STORAGE, 


UNASSIGNED AS YETe 

TEMPORARY ASSIGNMENT FOR DO 
LOOPS. AAAA LINKS TO AN ITEM 
IN LLISTe 


AABAtO® O02 TTTT AXXX 
AAAA+1:# SS S$SSS LLLL 


WHERE AXXX IS LLIST LINKe 
TTTT IS TEMPORARY ASSIGNMENT 
OF THE LABEL. SS SSS5 15S 
LIKE A PERMENENT SYM&0i. 
TABLE ENTRY FOR LABELS» AND 
LLLL IS A LINK BACK TO THE 
SYMBOL TABLE ENTRY. 

AAAA IS THE ASSIGNMENT FOR 
THE LABEL, 


FUNCTION 
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REFERENCE 
SPECIAL OPERATOR FOR SCANNER 
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x KM AAAA [5S cope FOR OPERATORS. 
Us49 : 
a 08 Z 0350 ¥ 
8S: 0551 X IN GQUT VALENCE LOOPS, A SPECIAL MEANING I5 
B o 0552 X GIVEN FOR K EQUAL TO 9) WHEN AAAA I> a 
F Si 0353 X CHANGE IN REFERENCE POINT OF THE EQUIVALENCE 
33 §.< 0354 x OOP, PLUS 50000. 
5 na 0355 x 
we zu 0356 
z 2 Si: 0357 3 
. $a tee X GENERATOR CODE FORMATS 
wo 
@ 0360 x 
> ad 
° 0361 : K T SSSS COO 
03562 E SIGNt O PLUS» 5 MINUS 
X FOR OPERANDS? P IS THE SIGN L 
® edie X T Is THE TYPES 0 FLOATING, 1 INTEGER? 
0564 . 2 UNSPECIFIED 
0365 x 
0306 x K EQUALS Of SIMPLE VARIABLE, OR 
0367 x A CONSTANT (IF C IS 9) 
0368 x PERHAPS A HAPPY ARRAY, 
0369 x SSSS_ IS A LINK TO THE 
0370 x CORRESPONDING SYMBOL TABLE 
0571 X ENTRY. 
S375 x K EQUALS 18 COMPUTED RESULT IN RA 
0375 x K EQUALS 2% INDEX REGISTER 1 
0374 x (00 VARIABLE) 
0375 x K EQUALS 3% ARRAY 
0376 x SSSS LINKS TO JIMENSION 
0377 $ TABLE ENTRY WREN THIS aRRAY 
0378 : 1S SENT FROM SCAN+ AND THEN 
0379 y AFTER THE SUBSCRIPT FOR THE 
0380 " ARRAY IS PROCESSEO, SSSS 
0381 x LINKS TO AN ENTRY ON THE 
| 0582 ¥ ARAS LIST,SEE& ROUTINE 4 FOR 
ogue 0583 x THE FORMATS IN ARAS.« 
0 ere 0384 X K EQUALS 48 TEMP STORAG:« . 
Ze 0585 x SSSS IS THE aSSIGNMENT IN 
Bz ho 0586 UNIQUE. 
<i ie 0387 x K EQUALS 53 LABEL 
Ge we 0388 x HERE SSSS IS A LINK 10 THE 
go: 0389 i. CORRESPONDING SYMBOL TABLE 
“$22 0590 x ENTRY. 
#525 0391 x K EQUALS 68 FUNCTION | 
ae 0592 SSSS IS LINK TO SYMBOL TABLE 
yEhe 0393 : a a 
oe K EQUALS 78 SPECIAL ; 
B5 Eze 0394 4 IN THE OPERAND STACK THIS 1S 
ie oZeee 0395 x SOMETINES USED FOR AN ARRAY 
17D Fe5g2 0396 x WITHOUT A SUBSCRIPT 
 «§ede5 0397 x K EQUALS 7+ By OR 98 OPERATOR 
IS EO8OZ 0398 
ip bor 
3 ul eee 
2 PBERe 
é 9Z2%0 
= SF om. 
<or,Z 
9 ui ws 0 OS 
ap n> o> 
7 86286 
o> zu 
6 tr t 
“DP size 
4 «ESES 
| 3 wz 20 
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0399 x KT SSSS IS THE SAME AS THE 
a dz 490 x SYMBOL TABLE ENTRY KM AAAAs 
5 O4o1 x KT 1S THE PRIORITY OF THE 
S O4g2 x OPERATOR. 99 MEANS ACTION 
go 0405 x FOR THE OPERATOR IMMEDIATELY 
2 o4o4 x UPON ENTRY TO GENe 98 MEANS 
a oe x THE OPERATOR I5 A UNIRY 
wed 0406 x OPERATOR, ELSE T EQUAL TO 
5 3 U4OT x ly 3+ 6+ OR 8 MEANS 
Se 0408 x IMMEDIATE ACTION BEFORE 
§ 0409 x ENTERING ON TRE OPERATOR 
; 0410 x STACK (SEE GEN CONTROL) 
Oujl x 
O4¥ 12 x 
0413 X RESERVED WORD CODES WHICH FOLLOW GIVE THE 
0414 X SYMBOL TABLE ENTRIES FOR ALL RESERVED 
0415 X IDENTIFIERS AND SPECIAL CHARACTERS» 
Ou1L6 X TOGETHER WITH A SYMBOLIC REFERENCE 
O417 X  CORRESPONOING TO THE ASSEMBLY LISTING OF 
x 
O19 x 1) FORTRAN (( ( 
0420 x 
O42) x 
o422 X  RESERVEO WORD CODES 
0425 Xx ITEMS CODE: SYMBOLIC? 
Ou24 x & 9941080000 99 SIGNS 
O425 X « 9941040000 99 SIGN~ 
0426 x Sf 8441150000 84 SIGN/ 
0427 x % 9941010000 99 SIGN% 
0428 X * $941110000 99 SIGN* 
0429 Xx $ 7341140000 73 SIGNS 
0430 x 4 7000000000 70 0000 
O43) K 4 7841130000 78 SIGNr 
O432 Xx + 9941050000 99 SIGN& 
0453 Y 4 9941170000 99 SIGN# 
O434 xX 9941010000 99 SIGNS 
0435 xX) 7000000000 70 0000 
0436 x 4 7341140000 73 SIGNS 
0437 xX NO 6941320000 69 WONO 
0438 X LIST 6941330000 69 WOLIS 
0439 X CORE 69413570000 69 WOCOR 
O440 X TRACE 6941360000 69 WOTRC 
O44) x TO 6940500000 69 SCANL 
0442 X THROUGH 9941380000 99 WOTRU 
044s x GO 9941310000 99 wOGO 
O444 X ASSIGN 9941300000 99 ASS1 
0445 x IF 9941070000 99 WOIF 
0446 x 0 941000000 99 WODO 
0447 X CONTINUE 6940500000 69 SCANL 
O448 X PAUSE 9841410000 98 WOPOZ 
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0449 x STOP 9841420000 98 WOSTF 
Bose potas X END 9941430000 99 aDENS 
. 0451 X FUNCTION 9941440000 99 WOFUN 
< o 0452 X SUBROUTINE 9941450000 99 WOSUs 
é o Ous3 X  REAU 9941460000 99 ADRES 
= 5 o$ 0454 X PRINT 9941470000 99 WOPRT 
4 = a 0455 X FORMAT 9941490000 99 WOFMT 
rim Nea 0456 X RETURN 9941500000 99 WORTH 
27 §52 0457 X DIMENSION 9941510000 99 WDDIM 
6a 0458 X COMMON 9941520000 99 wocoM 
® 3: 0459 X EQUIVLENCE 9941530000 99 wOEQU 
, : 0460 X SIN 9841200000 98 SINF 
0461 xX Cos 9841210000 98 COSF 
» 0462 X  SQRT 9841190000 98 SQRTF 
; 0463 X TAN 9841220000 98 TANF 
0464 X  ARCTAN 9841230000 98 ATANF 
0465 X LN 9841240000 98 LNF 
. 0466 x EXP 9841250000 98 EXPF 
0467 X ABS 9841260000 98 ASSF 
0468 X FLOAT 9841540000 98 FLOTF 
» 0469 X FIX 9841580000 98 FIXF 
0470 X PUNCH 9941590000 99 WOPCH 
| O47 1 X CALL 9941600000 99 WOCAL 
> v472 X NOT 9841610000 98 BCOMP 
Q4u73 xX OR 7941630000 79 BOR 
0474 X AND 8041620000 80 BLAND 
» 0475 X CARDS 6941660000 69 WDPRG 
0476 OFF 9000 
| 0477 eee OFF oe OFF 9001 
> 0478 wR ORF at OFF g8001 
| O“79 49% OFF 4m INCRI EQU 0007 G  INTERLACE FOR CORE PROGRAMS 
0480 RH FE xk MEMLL BLR 2100 2399 G POOLED MEMORY AREA 
a O4gl we OFF ee MEML 1 EQU 2099 G MEM. IS MEMLL - 1 
| | 0462 xe OFF 4% MEML2 FQU 2279 G AREA SETWEEN MEMLL aNO MEML2 IS USEL Fur 
/ 8 O4ugs *He OFF #% G OVERLAYABLE PROGRAM 
| B: O4g4 OR OFF ae MEMU2 EQU  240y G TOP OF POOLED MEMORY 
| Mm 0485 ee OFF xm BLR 2400 3999 
| t 0466 EK OFF ee BLR 4200 4999 
| DB 0487 wee OFF 5% DON EQU BOAC 
i 0488 wee OFF 4k TWOb EGU LAC 
| G 0489 eee OFF #% THREF EQU 82AC 
- 0490 ae OFF Ke NINGF EQU BSAC 
: 04g} eee OFF #% FS EQU B4AC 
Pa O4ug2 aK OFF ne ACC EQU A5AC 
20D : 0493 ae OFF 4k TYPE EQU Bé6AC 
9 8 O4g4 wR OPE 4k AVAIL EGU B7AC 
IB 0495 RK OF ee BAND EQU B8BAc 
72 | Oug6 *% OFF « NXLOC EGU AgGAC 
16 0497 wee OFF 4m ol 6) EQU SOFC 
1S QO498 eee OFF ae COMT EQU B1FC 
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V5S49 SEK JEP xm TMP le EQU e2FH 
3 Z 9850 we OFF #x TMP13 EQU 7 3FH 
Fe 0551 eee OFF 4 ASMST Eau aa py 
oe 0552 *eK OFF 5m UASW Fou ASFH 
6 0 0553 wee OFF am CHOLD EQU = =6FH 
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a 0555 eee OFF am LS¥ E Qt! Rar 
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6a 0558 wax OFF ax NXTCH EQU B1AS 
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0567 *Hx OFF x HHH Cc 
0568 HK UPF x OFF 9002 
0569 eR OFF +e OFF 8002 
0570 ON 9000 
0571 80000 BLR 4800 4379 S TRANSLATE TABLE =~ SOCARU TO MC-6 
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INTERLACE FOR NON@=CORE PROGRAMS 

POOLED MEMORY AREA 

MEML1 IS MEMLL = | 

AREa BETWEEN MEMLL ANO MEML2 IS USED FOR 
OVERLAYABLE PROGRAM 

TOP OF POOLED MEMORY 

PANIC = ALARM ROUTINE 


PRINTER BAND = ALARM ROUTINE 


a rt ete re a errr ce ne en i Eee ei Neen Nene: SOR we en crm 


0ou9 SLR 2008) 20086 005 
kz 0650 | 3LR 20165 20170 005 
: 0651 aLe 2005u 20055 005 
2 0652 ALR 20134 20139 905 
i. Ne 0653 — 3LP 20018 20023 005 
: » 2 0654 3LR 20103 20108 00s 
>; Ret 0655 ALR 20041 20046 005 
7 EO 0656 3LR 20125 20130 005 
5% Siz 0657 BLR 20009 20014 008 
a & 0658 BLR 20094 20099 005 
a i: 0659 : BLR 20178 20183 005 
: 0660 BLR 20062 20067 005 
0661 30000 BLR 1650 1699 G ALARM DICTIONARY OF WORDS 
a 0662 HHH i 
; 0663 ON a002 
0664 ON 9002 
> 0665 : Ge GENERATOR CONTROL 
0666 X THIS ROUTINE CONTROLS THE 
0667 X GENERATOR CO=ROUTINE, | | 
| 0668 X THE NORMAL EXIT aT THE COMPLETION OF 4 GENER= 
3 0609 X ATED ITEM 1S TO Gle WHICH STARTS THE 
0670 X PROCESSING OF THE NEXT ITEMs al THE END OF 
| 0671 X GENERATING CODE FOR CERTAIN OPERATORS? EXIT 
D 0672 X OCCURS TO GIO RATHER THAN Gle SINCE WE MAY 
0673 X WISH TO PERFORM SEVERAL OPERATIONS BEFORE 
| 0674 X SCANNING ANOTHER ITEMe 
> 0675 4140 BBB O 30 4Ou2 4ou4 NORMX LUL NORM SCAN Gle SCAN NEXT ITEM. 
0676 4044 888 0 50 4246 4248 SCAN STL GNX SCANX G THIS SHOWS TYPICAL TRANSFER OF CONTROL 
| 0077 4248 888 0 30 4050 4202 SCANX LOL E0000 NXTCH G BETWEEN TWO COROUTINES 
. 0678 4028 B88B 9 05 4030 4232 GEN LDX LAST ACTIVATE THE SCANNER CORKOUTINE. 
0679 4232 8BB V 50 4248 4200 STL  SCANX NORMALLY THIS MEANS WE ENTER STEP Si. 
0680 4200 886 0 30 4uc2 4204 LOL LEOFF 
) 068l 4204 888 0 50 4206 4208 STL LESW 
| 0682 4208 BB UY 60 4030 4246 STA LAST GENX 
Odua 0oa3 4042 88B 0 77 4OKD 4245 NORM ATL iF G2e ISIT AN OPERATOR 
D sicg 0684 4245 88B 0 70 424u7 4400 1 ADD B1G30 =OP 1 YESILE THE ITEM SCANNED 15 AN OPERATOR: Ge TORGE. 
n Zee 0685 NO 3 
poe 0686 440 B88 1 0G O00L 44o4 -OP1 IIR3 0001 G3e OPERAND STACKED 
| 0687 4404 BBB 154 0000 4602 STL3 9000 PUT THE ITEM AT THE TOP OF THE OPERAN)) oTACKe 
ae 06a8 4602 888 0 25 4604 4406 LDA 81625 Gbe IS IT AN ARRAY 
0888 0689 4406 88B 0 87 4017 4009 TGR IF +04 YESSIF THE OPERANO IS A DIMENSIONED VARIABLE> 
Ot szt 0690 4009 886 0 70 QOOA 4214 ADD RA GO TOHAL. 
2528 0691 4214° 888 0 87 4217 4O17 TGR ARRAY LF NOs 
Bee 0692 4017 888 9 30 4219 Youu 1 LOL SCAN GSe SCAN NEXT ITEM 
20D 2it2 0693 4219 888 9 30 4221 4023 LOL LPREN (} If THe NEAT ITEM IS A LEFT PARENTHESIS» WE 
9 $8802 0694 4023 68B 0 82 4226 4ou2 TEQ FUNCT NOR™ TENTATIVELY HAVE A FUNCTION C;LL SO WE GO 
ie 26K 0695 X TO STEPRFI. 
7@ Feasz 0696 OTHECTHERWISE WE GO BACK TO STEPHG2. 
6 535n5 0697 4401 3BB 0 70 4203 4606 &BOPL ADD BIG71 “OP 2 36. WHAT KIND OPERATOR i, 
“eo £8203 0698 4607 888 9 00 COOA OO00A &BOP2 JMP RA IMMtIF THE OPERATOR JUST SCANNED IS ONE THAT 
4 Y255r 
13 ake: 
2 Feu>e 
1 ®@ O36 
io SOR. 
9 EOS he 
o® 7255, 
8b2 8 
zon et 
JORG 
as ee 
rZ30 
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70 
09 
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4408 
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4417 
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0001 
4213 
4617 
4222 
4228 
4417 
HHHH 
0001 


4215 
4267 
oooc 
4225 
OOOA 
oooc 
GOOB 
0001 
0004 
0000 
4140 
4417 


+21) 
4215 


4ULS 
0004 
44UQ3 
Gus 
4619 
4420 
4426 
4229 
4227 
Q00A 


4615 
4819 
4223 
4428 
000A 
44u32 
4432 
4238 
4238 
4428 
4u2ka 
Buys 


“UP « 
OP 


OPX 


REMRT 


&OPS 
“OPS 
&OPY 
MDOP 2 
MOOP 
MDOP 1 


INSRT 


AWD 
STL 


LDA 
AOD 
LOL, 
LDA 
ERS 
TGR 
LOL 
LIRL 
IIR 
ERS1 


0x 
LOA 
ERS 
AOD 
JMP 
LDA 
LDA 
IIR2 
TIR2 
STL2 
LOL 
LIRG 


olwva 
QOHOLY 


RATOR 


0001 
OHOLO 


iF 

2F 

RATOR 
HHH 
9001 


“QOHOLU 


XM1 


BIG99 

Ra 

RX 

Rt 
0001 
0004 
0900 

NORMA 

RATOR 


“UP 4 
OPX 


RA 


REMRT 
REM 


RA 


-O0P3 


3F 
3F 
MDOP 1 
MDOP 1 
“OPS 
INSRT 
INS 


xX REQUIRES IMMEDIATE ACTION (CODE 99) BRANCH 
X TO THE ROUTINE FOR THISHOP, 

UNt ITF We HAVE A UNARY OPERATOR (COVE 98) SUCH 
x AS iN OR ABS GO TOHG20. 

OTH: OTHERWISE WE HAVE A SINARY OPERATOR 
x OR a DELIMITER WHOSE PRECEDENCE 1S TO #aé 

x TESTED. 


G7e PUT OP IN OWOLD,. 

X PUT THE OPERATOR JUST SCANNED INTO LOCATION 

x "OHOLD!' BEFORE DECIDING WHAT TO pO WITH IT. 

GLOeP (RATOR) tP(OHOLD) | 
CHECK THE PRECEDENCE OF THE TOP OPERATOR ON 
THE OPERATOR STACK AGAINST THE PRECEDENCE OF 
THE OPERATOR IN "OHOLDte 

LSStIF IT IS LESS (EsGer IN A+B*C, + IS LESS 
THAN *)+ WE MUST WAIT BEFORE OPERATING 
FURTHER SO WE GO TOHGI9> 

GEQtIF IT HAS GREATER PRECEDENCE OR 

EQUAL PRECEDENCE tHOWEVER+ THE OPERATOR ON TOP 

OF THE STACK IS REMOVED AND WE BRANCH TO THE 

APPROPRIATE ROUTINE FOR THIS#OP, 

PRECEDENCE IS 70 FOR VARIOUS KINDS OF LEFT 

PARENTHESES» 73 FOR 3 75 FOR EQUALS 

78 FOR COMMA 79 FOR OR 80 FOR AND? 

82 FOR PLUS AND MINUS+ 84 FOR UNARY MINUS? 

FOR MULTIPLYs+ AND FOR DIVIDEs 87 FOR POWER? 

AND 98 FOR UNARY OPERATORS 

G19eCOMHA OR SEMICOLON 

YES‘IF OQHOLD HAS A PRECEDENCE WHOSE UNITS DIGIT 
1S$1l-¢3e6eOR 8 IT MEANS WE ARE TO BRANCH TO 
THIS #OP NOW THAT THE PRECEDENCE HAS BEEN 
CHECKED, AT PRESENT THIS IS USED ONLY FOR 
SEMICOLON (EON OF STATEMENT) OR COMMA AND THI 
MEANS SRANCH TO THE ROUTINE SPECIFIED sy THE 
CURRENT MODE e 

NO’ OTHERWISE WE GO TO G20 TO PUT OHOLD 
ON THE OPERATOR STACK 

G2O0sOPERATOR STACKED 
THE OPERATOR IS PUT ON TOP OF THE OPEKATOR 

Xx STACK ANDO WE RETURN TOAGL, 

CODING DETAILS! 

X UPON <NTRY TO G&eT+ REGISTER A CONTAINS THE 

X CURRENT ITEM AND REGISTER X CONTAINS THe 

X PREVIOUS ITEM, THESE ARE IN "GENERATOR CODEt 

x 

x 

3 

x 

X 


«mM mK MO OK OO 


WHICH IS EXPLAINED IN THE TABLE OF FORMATS 
IN THE BEGINNING OF THE FLOWCHARTS« 
« SCAWNER CONTROL 


THIS ROUTINE CONTROLS THE SCANNER CO-KOUTINE« 
NORMALLY ENTRY TO THE SCANNER IS TO STEP $1 
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U7T49 X WHICH BEGINS To SCAN A NEw ITEM. 

- 0750 4050 BSB v 30 4252 4202 SCAN1 LOL NXTCH Sle NEXT CHARACTER 
O751 X GET THE NEXT CHARACTER FORS THE INPUT CaRD 
0752 | 7 | X (ROUTINE Nde 
0753 4252 388B 5 0B 4o50 4205 Lied co0Q0u KTiyO S20 WHAT KID 
0754 NS IF THE CHARACTER IS NUMERICe IT IS THe 
0755 X  AEGINNING OF A CONSTANT: SO We GO TOHRCL. 
Vi50 ot} A UeCIMAL eUiNi ALSO Mra 4 UUNSTANTE OO Te 
0757 X STEPRC2e 
0758 | 3 ALFSIF THE CHARACTER IS ALPHABETIC IT MEANS THE 
0759 X FYRST LETTER OF AN IMENTIFIERe SO WE GO TO 
0760 X #453, 
0761 SLNKIF THE CHARACTER IS BLANK; RETURN TO#S!, 
0762 OTHSOTHERWISE WE HAVE A SPECIAL CHARACTER: EACH 
0763 . X SPECIAL CHARACTER IS TREATED EXACTLY AS AN 
0764 | X IDENTIFIER TO LENGTH 1 AND WE GO TO STEPHSS,. 
0765 4053 888 9 30 4498 4207 E0003 LOL 805 §3¢ LOOK FOR IJKLMN 
U766 4207 88B v 50 4209 44j1 | STL TeMP2 IF THIS CHARACTER IS TRE LETTER I THROUGH Ny 
0767 4411 g86 0 30 4413 4265 LOL LITS RECORD FOR FUTURE REFERENCE THaT THIS 
0768 4265 886 0 87 4018 4218 TGR iF IDENTIFIER IS INTEGER TYPE. ALSO PREPARE TO 
0769 4018 8RBB 0 30 4220 44a2> LOL 90001 00005 RuILD UP TO FIVE CHARACTERS OF EVERY IDEN= 
0770 4622 886 0 87 4218 4u25 TGR if TIFIER IN A COMPUTER WORD: IN THE FORM 
O771 4425 88B 0 25 4408 4210 LDA s8rGol 2F ZZZZZNNNNN WITH LEADING BLANKS. 
0772 4218 8BB 2 26 4210 4210 | CLA 2F 
0773 4210 8B8B 0 60 4412 4444 2 STA TYPE 
O774 4414 38B 0 25 Gols 4418 LOA wLrti iF 

- 0775 4025 BBB U 70 4016 4418 5 ADD LITl LF 
0776 4418 BBB 0 60 4420 42702 i STA TEMPS 
0777 4272 BBB v 30 4424 4626 LOL LITS 
0778 4626 8BB 0 87 4629 4829 TGR 3F 2F 
0779 4829 88B 0 25 4209 46i]1 2 LDA TEMP2 
0780 4611 #888 9 37 O100 4465 SHL 0100 . 
0781 4465 8BB 0 35 4u67 4269 ERSA HHHHO HHHHH 
0782 4269 88B 0 20 oo0C 4423 BUF RX S4e NEXT CHARACTERS 
0783 4423 38B 0 60 4209 4629 STA TEMP2 3F SUCCESSIVELY GET CHARACTERS FROM THE CaRD 
0784 4629 BBB YU 30 4231 4202 3 LDL NXTCH (ROUTING NJ UNTIL THE FIRST NON@ALPHNUMERIC 
0785 4251 38B 0 08 4055 4205 LIR1 E0005 KIND CHARACTER APPEARS+e IF THE TERMINAL CHARACTER 
0786 4056 88B UY 30 4055 4407 F00U6 LOL £0005 SETNS 15 NONBLANK+ "PUT IT BACK*ON THE CARD 30 IT 
0787 4059 88B 09 30 4055 4407 FOOU9 LOL €0005 SETNS WILL COME THROUGH AGAIN NEXT TIME, 
0788 4058 888 0 25 4420 4625 FO008 LOA TEMPS 58 
07389 4057 888 0 25 4420 4625 £0007 LDA TEMPS 5B 

+ 0790 4055 888 0 06 4608 4608 £0005 CLX S50 SEARCH SYMBOL T..BLE . 
0791 4608 888 0 30 4410 4el2 LOL SEND SRCHL ACTIVATE ROUTINE T To SEARCH FoR THIS IDENT= 
0792 4051 888 0 65 4209 426; FOOO) STX TEMP2 IFIER OR SPECIAL CHARACTER IN THE SYMLOL 
0793 4261 886 ¥ 26 Weld 4eéel4 CLA TABLS. IF NOT FOUNn. IT IS ENTERED IN THE 
0794 4614 8BB 0 60 4412 UBiy STA TYPE | TABLE AS A SIMPLE VARIAGLE. IF FOUND: THE 
0795 4814 88B 0 25 4ol6e 4618 LOA LITL “ODE FOUND IS USED IN STEP Slo. 
0796 4618 858 0 60 4420 49655 STA TEMPS E0005 
0797 44190 388B ¥ 50 4420 4472 SENU STL TEMPS SEND i SlO«TRANSLATE TO GEN CODE. 
0798 4472 BBB v 


25 4624 4076 SENOL LDA TEMPY | WE HAVE AN ITE4 WHICH We WANT TQ SEND 
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0000 
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4216 
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4230 
Q00A 
4038 
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+49 
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§00uU5 
$0005 
$0006 
& SEND 
«SEND 
S$o009 
$0008 


$0007 
SCANS 


SETNS 


NXTW 


NXTCH 
NXTN 


&INPL 


NWORD 
NOOO? 
NOOO] 
NOVGe 
NoOOO3 
NOOO 


ATL 
CLX 
SHR 
ADO 
LDA 
LOA 
LOL 
ie@ 
SUF 
LOA 
ERS 
CON 
ERS 
BUF 
AOD 
CON 
LOX 
SHR 
LDA 
BUF 
ERS 
ERS 
ERS 
LOL 


STX 
LDA 
STA 
LOX 
LDA 
STA 
LDA 
LDA 
LOX 
STL 
ADD 


IIR 
ADD 
STA 
JMP 
Lind 
Lied 
Lik’ 
LIRd 
LIRL 


0900 


RL 
TEMPS 
DOVAR 
eF 
TYPE 
BIG21 


HOHHH 
XO 
TEMPS 


31000 
NOTAG 
OFOO 
BIG60 
TEMP 3 
XOM 
XOM 
XOM 
SCANI 


NEXTC 
NXTW 

NXTCH 
NEXTC 


—NXTN 


NXTCH 
NZONS 
NZONS 


RA 
EXIT. 
RA 


0001 
NWORD 
NWORD 
NOOO08 
KO1LOS 
KOO00 
KROGGs 
KOL6> 
KOO05U 


RA 
$0000 


ar 
SCANS 
SCAN9 


HOQ0O 


SCAN 
«SEND 
00000 


RX 


38 
SCANS 
SCANS 
SCANS 
GEN 


RL 


Ri 
Le 
iF 


“INP 1 


RA 


iF 
iF 
iF 
iF 
iF 


TO THE GENERATOR: BUT IT IS IN SYMBOL TABLE 
FORMAT RATHER THAN GENERATOR FORMAT. 
SPECIFICATIONS OF THESE FORMATS ARE GIVEN AT 
THE BEGINNING OF THE FLOWCHART LISTINGS, 

THE CONVERSION IS MADE AT THIS POINTe IF THE 
SPECIAL CODE 69 OCCURS HERE A BRANCH IS MADE 
TO THE SPECIAL SCANNER OPERATOR WHICH NEVER 
GET> TU THe GENEKATOR CUPMROUTINGs SUCN aS 
TRACE sLISTeCAROStETCe THE APOSTROPHE OPERATOR 
(MEANING END OF CARD)+ ROUTINE Qe IS ONG OF 
THESE SPECIAL SCANNER OPERATORS + THE 
OTHERS ARE MENTIONED IN STEP U29-6 


S20eSENY TO GEN 

x THE CODED ITEM IS SENT TO GEN, USUALLY 

x THIS IS TO STEP Gl, UPON REENTRY+ SCAN WILL 

x START UP AGAIN ATHS1, 

Ne ‘¢*GET NEXT CHARACTER? ROUTINE 

G SUBROUTINE SETNS PUTS BACK PREV CHAR ON CARD 

Nie WAS CHAR PUT BACK 

YES3IF a CHARACTER HAS BEEN *PUT BACKt ONTHE CARO 
RE*EMIT THIS CHARACTER ANDMEXIT. 


G NXTCH IS SET TO EITHER NXTW OR WATN 
NOs 


N2e END OF WORD 

NOt IF we ARE NOT AT THE END OF THE CURRENT 

Xx TEN=-OLUMN PART OF THE CARD? GO TO STEPANIO®? 
x ELSE WE MUST BRING UP ANOTHER SECTION OF THE 
YES: CARD, 

N3. END OF CARO 


YESSIF WE ARE AT THE END OF THIS CARED? Gy TO 
STEPHN206 

NOt 

W4e GET NEW WORD 
SRING UP THE NEW WORGe THIS MEANS USUALLY 


THAT THE NEXT TEN ZONES AND NEXT TEN 
NUMERICS ARE BROUGHT UP. SPECIAL ACTION I5 
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Us4y 4025 d86b 9 OB 0334 4240 NOUOS LIR1 KO134 IF TAKEN OWN THE STH WORD OF SO-COLUMN CAKDS 
0850 4936 386 3 0B O218 4240 NOOUs Liki KOuls iF TO oTOP AFTER COLUMN 725 AND ON THE FIRST 
0851 4240 368B 3 29 Q000 4652 1 Lual o000”¥ WOR) TO START EITHER AT COLUMN 7 OR AT 
0852 4652 888 43 09 O005 4257 Lux¥l oa005 SHFT COLUMN 1 IF THEXF Is A LABEL, 
0855 4257 338B 5 60 4609 4314 Shr T STA NNUMS BKoW 
0854 Ae F 900. 

0855 £H* OPE Ge ORF ©9504 

vo5e SEP UP aH Or F guve 

0857 ee OFF xe NOOQOS LOx K0041 

0858 wee OFF Ke LDA KOO46 

0859 *ke OFF xe SUF | SHE TF 
0860 eee OFF «e CON 90500 00000 
0661 *ee QFE we ~INPI CLA SF 

0862 *e* OFF «xk AKSW LOL #810 LF 

0863 wek OFF x” BKON LOL 810 iF 

OB 64H ee QFE #% 1 TEG BKOF 

0965 wee OFF xe LDA RX 

08666 *EK OFF ae CLhL 

0867 wae OFF «ee TEQ BKOF 

0868 we OFF «x LDX BIGOS 3F 

0869 wee OFF ae RKOF LOA B1Gg50 oF 

0870 #*% OFF xx OFF B001 

0871 *e% OFF xe OFF 8002 

0872 ON 9001 

0873 ON 900 

0874 ¥eR YEE 4% Noooe LIRI KooO4l 18 

0875 *4% OFF x ~INP I CLA BKSW 

0876 *** OFF «% BKSW LOL 810 1F 

0877 *Ke OFF mk AKON LOL 810 iF 

0878 eK ORE 4K 1 TEO | 2F 

0879 *#%K OFF x LDA RX 

U8&0 ewe OFF x CLL 

0861 *4* OFF 4% TEG aF 

Use2 xem OFF #* LOx #81G05 3F 

o8g3 ee OFF 4% 2 LDA BIGSO 3F 

Usa4u eee OFF +*% RKOF LDA BIGS5U 

0885 ¥4* OFF 4% SHR 0900 

0856 ¥ee OFF ax STA NZONS 

0887 eee OFF xm SHR 0100 

08a8 eX OFF a LOX NNUMS 

0889 *x*e OFF x SHR 0900 

0890 eee OFF xe STA NNUMS 

0891 *ee OFF 4% SHR 0600 

0892 WRK OFF #* MTC 

0893 *e* OFF wx SHL 0500 

0894 eee OFF «* SHR 0900 

0695 *** ORF nt ERS Xu9 

0896 eek OFF a LOX RA uF 

0897 *ee OFF x OFF 9001 

OB98 wee GFP ah OFF 9002 





UB9Y9 ON 9000 

em O990 4038 88B OB O24; 4240 NQOO8 LIRL Koo4) is 
0901 4341 8B 26 4311 431} “INPL CLA 8KSW 
0902 4511 388 31 4664 4664 BKS& CLL OLF 


< -_ 
ci 5a 0903 4253 388 9 31 4664 4664 BKON CLL oF 
3B Sc O904 4664 8BB 9 20 000C 4268 1 BUF RX 
: oo 0905 4268 88B 9 82 4621 4275 TEQ 2F +04 
z a StoS SSei SSS 2 Ol 4065) 4275 LWA olave er 
2D GES 0907 4275 aBB 0 25 4627 4679 382 LOAA 40000 0000 
a sz 0908 4679 888 0 35 4609 4511 ERS NNUMS 
_ 83 0909 4511 6888 09 32 oO400 4468 SHR 0400 
DE: 0910 4468 8BB 09 70 O00C 4823 ADD Rx 


0911 4823 886 
0912 4077 BB 


35 4475 4077 ERS® HHHHH 00000 
77 4077 4430 ATL 


eocececcceaccecaccoeoaccticaooccc 
ih 
© 





© 


D 0913 4430 BBB 4282 4434 BUFA 00005 90000 
0914 4434 BBB 0 32 QO500 4uuD SHR O80U 
0915 4442 88B 0 60 4456 4usg STA NZONS 
5 0916 4458 688 U 06 4711 47)1} CLX 
0917 4711 888 0 25 4609 4911 LOA NNUMS 
0918 4911 88B 0 32 0900 4273 SHR 0900 
D 0919 4273 888 0 65 4609 4361 | STX NNUMS 
0920 4361 BBB 0 37 O40O 4668 SHL 0400 
0921 4668 88B 0 20 O008 4522 BUF RL 
: 0922 4522 68B 0 35 4274 4476 ERS# OOOOH g0900 
0923 4476 888 0 70 4228 00a ADD RA 
0924 4228 88B 005 4800 4302 LDX 30000 QF 
0925 4675 3888 0 25 4277 4879 BKOF LOA 81650 3F 
0926 ON 901 
> 0927 ON 9002 
0928 ON 8001 
0929 ON g002 
| 0930 4879 BBB 5 32 0900 4041 3 SHR 0900 | NLOsEXTRACT NEXT CHaR 
DS | 0931 404) g8B 0 60 4456 4658 STA NZONS REMOVE THE NEXT CHARACTER FROM THE CARD AND 
| 0932 4658 888 0 25 o00C 4462 LOA RX HEX1Te 
ees 0933 4462 B8B 0 37 O400 4669 SHL 0400 
BD 5ir7 0934 #009 586 0 05 4609 456) LDX NNUMS 
nZse 0935 45601 BBB 9 32 0900 4473 SHR 0900 
Bees 0936 4473 88B 0 60 4609 4302 STA  NNUMS SF 
Deis. 0937 4302 888 9 30 4254 4656 mn LOL STAN 
Gi ye ~ 0938 4656 8B8B Y 50 4257 4464 STL SHFT EXIT 
9S o< 09 39 4254 38B 9 60 46u9 4311 STAN STA NNUMS BKSW N20.GET NEW CARD 
D sot 0940 4039 88B 0 07 4030 4642 1Q009 IIR 0000 UNLOAD HSR BUFFER IF IT HAS NOT ALREAVY BEEN 
EOz8 O94) 4642 JBB 0 30 4uuu 4646 LOL SHFT4 UNLOADED. IF NO CARD IS CURRENTLY IN PRUCESS» 
ae 0942 4646 38B 050 4257 48an9 STL SHFT GIVe 2223 ERROR HALT. 
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SPECIAL CHARACTERS» CONSTANTS» AND STATEMENT 
NUMBERS (LABELS) IN THE BIG TABLE. IF NOT 
IN THE TABLEs THE ITEM IS ENTERED INe 

Tle SCRAMBLE 
MULTIPLY ITEM 8Y 1010101010 ANDO THEN avdOD 
(0 FOR CONSTANTS+ LENGTH FOR [CENTIFIERS+ 
OR 99 FOR STATEMENT NUMBERS). TAKE THE 
RESULT MOD 100+ GIVING THE STACK HEAD NUMBER 
FOR THIS SYMBOL. 


Tde IS STACK EXHAUSTED 

YES$IF THISSTACK HAS BEEN ENTIRELY PROCESSED» 
INSERT THIS ITEM INTO THE TASLE ON THIS 
STACK. SEXIT. 

NO3 
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1149 


1150 


Lisi 
i152 
1155 
1154 
1155 
4150 
1157 
1158 
1159 
1160 
1161 
1162 
1165 
1164 
1165 
4166 
1167 
1168 
1169 
1170 
11723 
1172 
i175 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
lial 
1162 
1165 
1184 
1185 
11386 
1187 
4188 
1189 
1190 
llgi 
1192 
1195 
1194 
1195 
1196 
1197 
1198 


43U8 
4312 
4804 
4654 
4657 
4312 
4314 
4493 
4712 
“45? 
4610 
4515 
4318 
4270 
4902 


a4as 


4876 
4929 
4253 
4237 
4440 
4644 
4648 
4352 
4255 
484 
4455 


886 
88B 
886 
38B 
3BB 
386 
386 
BBS 
888 
$88 
388 
888 
368 
BBB 
388 


BbaB 


B88 
88B 
88B 
388 
BBB 
BBG 
886 
B88 
888 
388 
B58 


ecece ococec Get ccc’ 


fececaocce Goccce 


30 


31 
60 
25 
82 
25 
75 
30 
87 
60 
77 
25 





QOOA 
4864 
Q002 
4457 
000Cc 
4314 
0001 
0600 
0200 
0001 
QOoOoCc 
4515 
4270 
0000 
4624 


4464 


4929 
4631 
4635 
4U4Q 
4292 
4095 
4690 
4255 
4292 
4au4 
4507 


4312 
QO0A 
4654 
4657 
4512 
OOOA 
4453 
47Fi2 
4702 
4610 
4515 
4318 
0004 
49Q2 
4u64 


4876 


4929 
4233 
4237 
4OUO 
4644 
4648 
4352 
4455 
4844 
4647 
4259 


&SCRM 


INS 


INS99 


LOx 
ADD 
LOa 
Ten 
LOA 
ADD 
Los 
SHL. 
SHR 
IIR 
ADD 
ATL 
AdDD 
LOx 
STx 


STL 


CLL 
STA 
LDA 
TEQ 
LDA 
SUB 
LOL 
TGR 
STA 
ATL 
LOAA 


RA 


002 
AF 
n¥ 
0001 
0460u 
0200 


0001 
RX 


0000 
TEMPy 


EXITi 


TEMP 1 
AVATi.. 


MEMU 
KON2 
MEML 
MEMU 


O1020 


RA 


RA 


18 


RA 


ExIT, 


INS99 


aF 


3F 
00000 


TS. DOES SYMBOL MATCH 
COMPARE THE CURRENT ITEM IN THe STAUK | 
NOS AGAINST THE DESIRED SYMoO_, IF THER, 15 NU 
MATGH: GO BACK TO HT2s 
YES: 


T4. GET TABLE ENTRY 
GET THE CORRESPONDING ENTRY FOR THE SYMuGi, WE 
HAVE JUST FOUND. #ExIT. 
COOING DETAILS? 
AT INPUT+ REGISTER aA CONTAINS THE LENGTH OF 
SyMBOL+ REGISTER x CONTAINS TRE cODE To USE 
IF NOT FOUND IN THE TABLE+ RL CONTAINS THE 
EXIT INSTRUCTIONe TEMP2 CONTAINS THE SYMBOL. 
AT EXIT+ RL CONTAINS THE LOCATIONS OF THE 
TABLE ENTRY IN ITS M ADORESS+ AND TEMP4 15 
THE EQUIVALENT OF THE SYMBOL. 
LINKED MEMORY SURROUTINES, 
THESE SUBROUTINES ARE USED IMPLICITLY IN MANY 
PLACES OF THE PROGRAM: TO STORE ANO RETRIEVE 
INFORMATION FROM A POOLED MEMORY AREA. 
THE FORMAT FOR POOLEN MEMORY IS 
STACK HEAD! 00 LINK 0000 
AVAIL STACK 00 LINK 9000 
OTHER ITEMS ARE IN TWO WORD FORMATS 
LINK INFO. LINK Lllliil2222 
LINK+1 INF QO @ fhLiglilil 
ZERO LINK INDICATES THE END. ThE POOL [5 
KEPT SETWEEN LOCATIONS MEML1 AND MEMUL 
THE SYMBOL TABLE AND STACKS WORK DOWN FROM 
MEMU1e OIMENSIONS AND EQUIVALENCE ENTKIES 
ARE INSERTED UP FROM MEML). 
IN THIS SECTION: ENTRANCE Li IS CALLED ft INS? 
AND IT IS FOR INSERTING ITEMS, WHILE ENTRANCE 
L10 1S FOR DELETING ITEMS FROM STACKS AND IT 
IS CALLED *REM*,. 
Lie IS AVAIL EMPTY 
NOt IF THE AVAIL STACK +S NOT EMPTY*+ REMOVE AN 
ITEM AND GO TOAL 4. 
YES3 
L2e MEM. #MEMU 
GEQ IF THERE IS NO ROOM FOR ANOTHER ITEMs GIVE 
THE IeM FULL ERRORKALARM, 
LSSs 
L%». RESERVE TWO 
MECREASE MEMU BY 2, WE WILL USE THESE Two 
6 TeM FULL 


@ 


mM OK OO OK OOK OK KO 
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ee ee 


1199 
1200 
1201 
1202 
12935 
1204 
1205 
beUO 
1207 
120908 
1209 
m~ 1210 
l2ik 
l2l2 
1215 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 


4259 
4912 
4640 
4243 
4295 
4552 
4647 
Hou l 
4306 
“715 
4869 
4752 
4249 
UOIS2 
H4 53 
4457 
4492 
4439 
4229 
4616 
4653 
4506 
4459 
4657 
HU) 
4495 
4653 
4087 
4257 
4639 
4692 
4449 
Yay 
4853 
4833 
4303 
464) 
4643 
484g 
4205 
4659 
U7L4 
4518 
4280 
4285 
4438 
4892 
4296 
4250 
48Su 


B88 
385 
888 
888 
388 
88s 
8BB 
=} =] «| 
BBB 
888 
888 
688 
388 
888 
888 
386 
888 
3868 
388 
888 
888 
886 
388 
383 
388 
388 
3838 
388 
388 
JBB 
888 
388 
8688 
38B 
888 
888 
886 
888 
3BB 
3BB 
BBB 
3BB 
388 
888 
888 
8868 
68S 
8868 
388 
856 





eaoeoccceccoococoocrcoccec.w cece ccccaccoccaeccococecectccocecetc 


4912 
1212 
4640 
4295 
Q000 
4635 
4249 
vous 
0600 
4667 
0000 
Q400 
00009 
4631 
0008 
4439 
0000 
0001 
GUG4 
0000 
4506 
oooCc 
4635 
0000 
4uy3 
4631 
0008 
4635 
4639 
4639 
0400 
0043 
0000 
0000 
0000 
O043 
4643 
9000 
0000 
Qo00c 
4362 
0000 
4628 
000c 
4438 
4290 
0001 
4298 
0001 
4706 


4514 
4455 
424% 
QO0A 
4552 
4647 
460} 
% SUG 
4715 
4869 
4752 
000¢ 
4952 
4433 
4437 
4“92 
QOOA 
4464 
4616 
4653 
4506 
4459 
4637 
Guus 
UhOs 
46353 
4087 
4287 
464) 
4692 
Wag 
463) 
4853 
S464 
4303 
4641 
000A 
“848 
0008 
4659 
4714 
4518 
4286 
4285 
4638 
WAS? 
4296 
4256 
4854 
“3rg 


REM 


BR2 
BRI 
BR 


KIND 


LOL 
HUT 
ATL 
AOD 
LDA 
STA 
LOA 
AVU 
SHR 
ERS 
BUF L 
SHR 
STA 
LOX 
LOA 
ADD 
STLi 
STX 
STL 
LOL, 
CLA 
TEO 
t.OX 
IIR 
BUF 
STA 
LDA 
STL 
LOL 
ATL 
SHL. 
ERS 
STA 
STX1 
LDAS 
ERS 
BUF 
LIR1L 
LDA 
LOL 
LDA 
TEQ] 
LDA 
AQO 
TES 
LOLA 
TEG) 
LOL 
TEQL 
ADD 


0400 
XM 

0000 

000N 

0000 
XM 


0000 

0000 
RX 
LIT& 

000u 
MZERO 
RX 


90005 
09001 
KON30 
0001 


ALARM 
2B 


RA 


SF 


RX 


RA 
EXIT1L 


TEMP i 


EXIT1 
BR4 
BR 
RA 


RL 


LF 
iF 
00001 


“KING 


LOCATIONS FOR THE NEW ILIEMs 


L4e INSERT ITEM 
PUT THE NEW ITEM INTO THE MEMORYe FIX UP 
LINKS PROPERLY. fEXITe 


CODING YETAILS FOR INS3 

Kod CONTAINS STACK n&EAY LOCATON 

RL CONTAINS EXIT INSTRUCTION 

RA CONTAINS INFO2+RX CONTAINS INFOL 

AT EXITe RL IS NEW CONTENTS OF STACK HE Ade 
G ASSUMPTION MADE THAT RX WAS POSITIVE 

RX IS INFOZ. 


LiOo TS STACK EMPTY 
YEStIF STACK HAS NO ITEMS+GU TOREXIT2. 
NO$ 


LiLeREMOVE ITEM 
REMOVE TOP ITEM OF STACK 


Li2eMAKc LOCATION AVAIL 
PUT THE LOCATION JUST FREED ONTO THE AVAIL 
STACK, REXITI. 
CODING DETAILS FOR REMS8 
RB1 1S THE STACK HEAD LOCATION: 
RX 1S THE EMPTY EXIT (EAXIT2)¢ 
RL IS THE ORDINARY EXIT. 
OUTPUT? RB1 IS THE LOCATIONe RL IS INFOL. 
INFO2 IS STILL IN MEMORY, 


KINO SUSROUTINE IS SWAY BRANCH TO 
Ral IF CHARACTER 1S BLANK 

Roitl IF SPECIAL CHARACTER 

RG1+2 NUMERIC 999990000N 

RB143 ALPHABETIC 

RBi+4 DECIMAL POINT 


ODOM 


a 








& 
© 
j 








1249 4706 BBB 2 99 9990 9000 CON 99999 00000 
52 1250 43U9 8B8B vy 04 0002 v002 KING JMP1L 0002 
; 1251 4310 685 2 04 0003 0003 2 KIND JMPL 0903 
é 8 1252 4658 888 2 25 4u9q0 4342 1 LOA# 90001 00004 
ee ee 1253 4342) BBB ) 88 0004 4496 TEQL 0904 
38 §:< 1254 449g g8B 0 04 «C001 0001 JMP1 000! 
a a 1255 4655 88B 2 50 4u64 4266 NOMLZ STL EXITL Ce CONSTANT SCAN VER 
. EO 4290 4290 990 J 24> “209 4308 LUA TEMP YZ ey NORMALIZE A> VOERL IU LUNVERT 10 
eS i 2 1257 4562 988 9 31 4918 4915 CLL G FLOATING POINT FORM 
: 6a 1258 4915 68B 0 82 446H 4718 TEQ EXIT! 
>: 1259 47138 BBB 0 06 4271 427] CLX 
> 1260 4271 BBY OB oCO0O 4474 LIRI 0000 iF 
1261 4474 8B8B 0 32 0100 4828 1 SHR 0100 
) 1262 4628 8BB 0 82 4261 448; TEQ UF 
> 1263 4481 gap 932 oO100 4485 SHR 0100 
1264 4465 BBB uv 82 4838 4288 TEQ 2F 
1265 4258 8B8B 0 60 4209 4762 STA TEMP2 
» 1266 4762 88B 0 0G 0002 4466 TIR1 0002 
1267 4466 8BB 0 25 4209 4474 LDA TEMP2 {B 
1268 4281 BBB 0 0G 0050 4685 1 IIRL 0050 3F 
® 1269 4838 8BB 0 0G 0051 4685 2 IIR’ oo5! 3F 
1270 4685 8865 09 75 4420 4523 3 SUB TEMP3 
1271 4523 8BB 0 32 0200 4078 SHR 0200 
® 1272 4078 88B 0 37 0600 4487 SHL. 0600 
1273 4487 886 9 20 O00c 4464 BUF RX EXITL 
1274 4004 BBB 0 05 4209 4962 FOOLY LOX TEMP< 2F Cle SET TYPE INTEGER 
, 1275 4962 88B 0 26 4365 4365 2 CLA LF INITIALIZE N TO THE NUMBER JUST SCANNED) 
1276 SET TYPE INTEGER. GO TOAMC3, 
1277 4052 888 4 07 0001 4365 E0002 IIR 0001 1F C2e SET FLOATING TYPEs 
. 1278 4054 68B 09 06 4962 4962 EQ004 CLX 2B SET N TO FLOATING POINT TYPE, 
1279 4365 88B 9 60 4412 4914 l STA TYPE 
1280 4914 888 0 65 4209 4263 STX TEMP2 C3e NEXT CHARACTER 
 ] 1281 4263 BBB J 26 4666 4666 CLA IF GET THE NEXT NON@“BLANK CHARACTER FROM THE 
. | 1282 4666 88B 0 60 4429 4060 i STA TEMPS £0010 CARD (ROUTINE Nje 
ho eg ue 1283 4060 888 9 30 4463 4202 FOO1O LOL NXTCH 
oe Rts: 1284 4463 888 9 08 4060 4205 LIRi E0010 KINO Cue WHAT KIND 
aZSe 1265 4062 8BB 0 25 4209 4663 E0012 LDA TEMP2 NUMSIF CHARACTER IS NUMERICHSET N TO LOntCHaRe 
! ae 1286 4663 HBB 0 37 0100 4317 SHL 0100 GO TOXC3. 
oe ats 1297 4317 888 9 20 ooOoC 447, BUF RX 3 IF A DECIMAL POINT, GO TOKC2, 
GF ub 1288 4471 88B 0 60 4209 4863 STA TEMP2 ALFtIF ALPHABETIC?+ GO TOHCS> | 
goes 1289 4863 BB 007 QOOL 4316 IIR 0001 OTH8IF SPECIAL CHARACTER. PUT IT BACK ON THE CARD? 
\ Bare: 1290 4316 BBB 970 4420 4666 aDD TEMPS 13 AND GO TOACG. 
| BOzE 1291 4063 88B 0 60 4631 4283 FQO13 STA TEMPL CS5e E HOR M 
Po peg 1292 4263 9888 0 25 4402 4304 LDA LEOFF IN A STATEMENT LABEL CONTEXT WE GO IMMEQIATEL 
20 Bite 1293 4304 88B 0 30 4206 4508 LOL LESW E§ TO Cé+ OTHERWISE WE GO TORCIc FOR AN Ey 
19 85552 1294 4508 BBB 0 82 4313 4né1 TEQ EOuLL Mt TO #€20 FOR AN Me 
ie 25k 1295 4313 88B 0 25 4631 44a3 LDA TEMP L Hs TOAC3Q FOR AN H, 
7D Feak 1296 4433 38B 9 30 4424 4326 LOL LITS OTH 
‘ie KESRS 1297 4326 88B 9 62 4179 4379 TEQ EROUT OTH.RWISE IT IS THE END OF THE CONSTANT 
Is Eg80z 1298 4379 888 0 30 4413 4565 LOL LITs (PROBABLY SYNTACTICALLY INCORRECT) ANU WE GO 
aM OoroO= 
3 es 
1D 5289 
io 8 Ga 
o. by0es 
sp BIH Sy 
7 8b28e 
o7 zu 
6 =u 8 Bigg 
5B age 
4 ES Es 
3 rZzeu 


5 i 
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1299 
1390 
1301 
13902 
1305 
1304 
13905 
1306 
1307 
1308 
1309 
1310 
1311 
13512 
41313 
1314 
1315 
1316 
1317 
1318 
1319 
4320 
1321 
ls22 
1325 
1324 
1325 
1326 
1327 
1328 
1529 
1330 
1331 
1332 
1335 
1334 
1335 
1336 
1337 
1538 
1339 
1340 
1341 
1342 
1345 
1344 
1345 
1346 
1347 
1348 


43505 
4168 
4722 
406] 
4513 
4304 


4517 
4670 
4320 
4713 
4206 
4402 
4708 
4922 
4913 
4516 
4519 
4319 
4564 
4671 
4725 
4179 
4764 
4717 
4917 
4719 
4065 
4167 
4006 
4450 
4703 
4707 
4660 
4765 
4067 
4069 
4068 
4871 
4905 
4567 
4460 
4563 
4172 
4925 
4070 
4372 
“OTH 
4073 
407) 


8388 
58B 
888 
388 
388 
88B 


8838 
888 


BBB 


885 
BSB 
86B 
GBB 
8BB 
888 
386 
386 
8BB 
388 
3BB 
358 
886 
888 
888 
886 
888 
3BB 
388 
38B 
3BB 
386 
BBB 
386 
B88 
388 
38B 
888 
88B 
85B 
886 
888 
3BB 
88B 
888 
888 
888 
BBB 
386 
388 


ecooocc 


ccc oeocctccceccaccceocaceceococcceccoceccccececeoceoaoce 


82 


a0 


82 


25 
a1 


82 


25 
37 


30 
50 
25 
Ji 
82 
25 


37 
20 
60 
25 
87 
30 
30 
60 
30 
QB 
25 
82 
25 
82 
25 
82 


30 
30 
30 
25 
QO3 
25 
60 
26 
60 
30 
OB 
30 


39 


4918 
4470 
4525 
4513 
4U}2 
4517 


uo7n 
4206 
4209 
0400 
4708 
4708 
4420 
4209 
4516 
4319 
4412 
0002 
Q400 
4723 
4412 
4412 
4717 
4064 
4719 
4209 
4167 
4065 
4298 
4503 
4305 
446n 
4363 
4503 
4503 
487} 
4871 
4513 
4367 
2000 
456% 
4420 
4925 
4624 
4372 
4070 
4526 
45246 
4526 


4168 
4722 
4061 
4407 
4364 
4517 


usoe 
8655 
4713 
4206 
4260 
4260 
4922 
4913 
4516 
4519 
4564 
4564 
467] 
4725 
4u72 
4764 
4917 
4407 
4655 
4065 
4202 
4205 
4456 
4703 
“707 
4660 
4765 
4069 
4407 
HUA? 
4407 
4965 
4514 
9900 
4503 
4172 
4925 
4070 
4252 
4205 
44-7 
4409 
Gun? 


EQO11 
5 


LESW 
LE OFF 
i 


EROUT 


FOOLS 


E0016 


E9017 
£0019 
E0018 
CALRM 


Ps 


1 
Fo020 


EQ024 
Ec023 
F021] 


TEO 
LULA 


 TEQ 


LOL 
LOA 
cil 
TO 
LOL 
LOA 
SHL 
LOL 
LOL 
STL. 
LDA 
CLL 
TEQ 
LDA 
TIR 
SHL. 
RUF 
STA 
LDA 
TGR 
LOL 
LOL 
STA 
LOL 
LIRi 
LDA 
TEO 
LDA 
TEO 
LDA 
TEn 
LOL 
LOL 
LOL 
LOL 
LOA 
CON 
LOA 
STA 
CLA 
STA 
LOL 
LIRi 
LOL 
LiL 
LOL 


HROUT 
90001 
MROUT 
5F 
TYPE 


LESW 
TEMP2 

0400 
lF 


iF 
TEMPS 
TEMPe 


lF 
TYPE 
0002 
0400 
KONe > 
TYPE 
TYPE 


E0014 
TEMP 2 


EQOD15 
KONO 
6F 
LITA 
7F 
90001 
GF 

6F 
CALRM 
CALRM 
58 


03300 
ZF 
TEMPS 
iF 
TEMP 4 


£0020 
oF 
oF 
oF 


00004 
EOOLL 
SETNS 


ir 
NOML2Z 


LESW 
CONST 
CONST 


o000¢ 
E0019 
SETNS 
SETNS 
SETNS 


ALARM 
00000 
6F 


E0020 
NXTCH 
KIND 

SETNS 
SETNS 
SETNS 


TO STEP C6 


Coe ADJUST FOR TYPE 
IF FLOATING POINT TYPE OCCURRED: CONVERT N TO 
FLOATING POINT FORMAT?® ELSE SET N TO 1000 

K TIMES Ne 


C7e IS IT A LABEL 

YEStIFALABEL CONTEXTHENTER SPECIAL ROUTINe FOR 
THIS CASE+DEPENDING ON THE SETTING OF THE 
LABEL SWITCH. THE LABEL SWITCH IS AUTOMAT= 

NOt ICALLY SET OFF EVERY TIME GEN IS 
ENTERED? GEN WILL SET IT WHENEVER A LABEL MAY 
BE EXPECTED. 

C8e LOOK UP IN TABLE 
ACTIVATE ROUTINE T FOR THIS CONSTANT? THEN GO 
TOHS10 TO SEND A CONSTANT CODE TO GENe 


ClO«eNORMALIZE 
INSERT A DECIMAL POINT IF NONE PRECEDED, 
EeGe 2656 


CILeNEXT CHARACTER 
ACTIVATE ROUTINE N FOR THE NEXT CHARACTER. 
Cl20eWHAT KIND 
tIF BLANKs RETURN TOaCcll. 
N $sIF QUMERICePUT BACK ON CARDIRECORD + SIGNe 
TOHC 13.6 
+#~ SIF PLUS OR MINUS» RECORD THE SIGN, TOFCI3. 
NTHSOTHERWISE GIVE THE BAD CONSTANTAALARM. 


G BAD CONSTANT 


CL3eNEXT NUMBERS 
CONTINUE ACTIVATING ROUTINE N UNTIL A NON<BLA 
Nie NON@NUMERTC CHARACTER APPEARS. 


we lw 
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1349 
1350 
4351 
1352 
i355 
1354 
1355 
4 Jao 
1357 
1358 
1359 
1360 
1361 
1562 
13635 
1364 
1365 
1366 
1367 
1568 
1369 
1370 
1371 
1372 
1375 
1374 
1375 
1376 
1377 
1378 
1579 
i3g0 
1361 
L382 
13a5 
1584 
13585 
1386 
1387 
1388 
i389 
1390 
L391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 


4072 
+503 
4308 
4526 
4572 
4175 
4726 
4Ge7 
4964 
4963 
4716 
4919 
4763 
4260 
4916 
4520 
4375 
4278 
4480 
4O54 
4436 
4525 
4478 
4772 
4366 
4169 
4923 
4369 
4566 
4768 
4173 
46S] 
4656 
4291 
4649 
4Y9G3 
4510 
4373 
4918 
467K 
4678 
u477 
4766 
4569 
4373 
4966 
4769 
4973 
4969 
4176 


888 
388 
88B 
BSB 
388 
3BB 
JBB 
Fe Dd 0) 
3BB 
888 
BSB 
868 
388 
BBB 
888 
BSB 
888 
3ae 
688 
388 
BBS 
3868 
3888 
8BB 
388 
865 
88B 
886 
3BB 
88B 
388 
888 
3BB 
385 
386 
386 
886 


BBB 


868 
38B 
38B 
BBB 
388 
3BB 
388 
388 
386 
886 
388 
386 


ceocococecccecccoceoaoacecoacocacceccececeocecceococoGe kc Ot Gee 
ites ' 


4624 
0100 
000d 
4420 
4175 
4624 
0800 
+29 
4209 
4716 
4206 
4209 
4206 
4209 
4568 
4623 
4278 
4UBO 
Q00B 
4436 
0000 
4478 
4420 
4209 
4169 
4972 
4016 
4209 
4768 
oooc 
0500 
QOOA 
OO0A 
0500 
oooc 
0400 
4420 
0900 
4972 
4926 
4675 
4311 
4569 
&420 
4209 
4769 
4773 
4016 
4624 
4878 


4563 
4368 
4925 
4572 
4175 
4726 
4687 
AS 5 
487) 
4716 
4919 
4763 
487} 
4916 
4520 
4375 
4278 
4729 
4634 
Q00A 
4568 
4478 
4772 
4366 
4169 
4923 
4369 
4566 
4202 


4173. 


468} 
4636 
4291 
4649 
4903 
4510 
4373 
4478 
4674 
4678 
4477 
4766 
4569 
4573 
4966 
4769 
4973 
4969 
4176 
4202 


EQOge 
2 


RERUT 
~ERUT 


CONST 


MROUT 


HROUT 
HOLSA 


LDA 


ShLe 


aur 
LOA 
CAA 


| BUF 


SAL 
AUD 
STA 
CLL 
TGR 
LOA 
TEQ 
STA 


STL. 


Ox 
CLA 
LOL 
LDA 
BUF 


LIRL 


CLA 
STA 
i.DA 
CLL 
TEQ 
SUB 
STA 
LOL 
LDA 
SHR 
AOD 
ADD 
SHL 
BUF 
SHL 
LOX 
SHR 
LOL 
STL 
L.DA 
STA 
CLX 
STX 
LDA 
CLL 


TEQ 


SUB 
STA 
LOL 


TEMPS 
010u 


TEMP 3 


TEMP4 
9800 
ignre 
TEMPS 


LESW 
TEMP2 
LESW 
TEMP2 
ExIT2 
B1G05 


RL 
0000 


TEMP 5 
TEMP 2 


oF 
LITA 
TEMPe 


RX 
0500 

RA 

RA 
0500 


0400 
TEMPS 

0900 
9F 
EXITS 
BKOF 
BKSW 


TEMPS 
TEMP 2 


6F 
LITL 
TEMP4 
2F 


rag 


wrnul 


CALRM 


CALRM 


SRCH 


RA 
EXIT2 


NXTCH 


18 
HOSS 


\F 


NXATCH 


Ci4eADJUST EXPONENT 


ADD T4E EXPONENT TO THE FLOATING POINT 


BADSCONSTANT, IF OVERFLOW OR UNDERFLOW OCcCURSe 


iVe TAR SAU CUNSTANT ALARM. 


OKs OTHERWISE RETURN TORC7. 


C20.GET N CHARACTERS 


GET NEXT N CHARACTERS FROM CarkD INCLUUING 
BLANKS ANO BUILD MACHING CODE CONSTANT. G9 
TORC32¢ 


C30«e«GET N CHARACTER: 


SET HOLLERITH SWITCH IN ROUTINE Ni THIS 
SWITCH SIGNALS THAT ROUTINE TO TRANSMIT 
CHARACTERS IN CARD CODE ON 99-COLUMN SYSTEMS 
AND ALSO TO SUPPRESS A SPECIAL HIGH-SPEED 
SKIP OVER BLANK COLUMNS WHICH IT USUALLY 
HAS. GET THE NEXT N CHARACTERS FROM THE 
CARO+ AND BUILD AN ALPRA CODE CONSTANT 

IN CARO CODE. 








1399 4878 88B 0 25 4420 4a7K4 2 LOA TEMPS 
a ez 1490 4874 88B 0 37 0100 4328 SHL 0100 
bs: 1401 4328 8BB 0 20 O00C 4682 BUF RX 
é Mo. 1402 4652 888 09 60 4420 4324 STA TEMPS 
0 5a - 1403 4324 888 0 25 4624 4966 LDA TEMP4 18 
>) $5 1404 4773 88B 0 25 4209 4567 8 LDA TEMPd C31eZERY FILL 
: $a 4405 4507 868 9 30 4720 4524 LOL LIT4 IF NW IS LESS THAN 5+ ADU ZEROES TO FILL THE 
es ee i4uo 4364 880 Vv Of 4677 4527 TGR 8F CONSTANTe RESTORE THE HOLLERITK SWITCH 
2D bs 1407 4327 88B 0 70 4016 4920 ADD LIT1 TO NORMAL» IF N IS MORE THAN 5+ CRAZY 
a sz 1408 4920 888 0 60 4209 4767 STA TEMP2 CONSTANTS ARE GENERATED 
— 82 1409 4767 BBB 0 06 4878 4878 CLX 28 
DRE 1410 4677 8B8B 9 25 4253 4505 8 LDA BKON 
6 1441 4505 888 0 60 4311 4926 STA BKSW EXITS 
1412 4972 BBB 0 07 0002 4575 9 1iR 0002 C32eTYPE UNSPECIFIED. 
1413 4575 BBB 0 60 44ui2 4967 STA TYPE | SET THE TYPE OF THIS CONSTANT TO UNSPECIFIEU. 
1444 4967 8BB U0 25 4420 4206 LOA TEMPS LES GO TOHC7. 
| 1445 4135 886 0 25 1064 4968 SIGN? LDA $ Qe SPECIAL SCANNING ROUTINES 
d 1416 X ENTRANCE TO G1 OCCURS WHEN THE END OF CARD 
1417 X  ( WHICH IS DETECTED BY AN APOSTROPHE INSERTED 
1418 X BY ROUTINE N) IS SENSEDe ENTRANCE Q@lo IS 
9 1419 X USE TO DIVERT NORMAL CONTROL OF SCAN: IN 
1420 X ORDER TO EMIT A STRING OF INSERTED ITEMS 
| 142 X BEFORE RESUMING ORDINARY SCANNING. 
D Lug2 4968 88B 2 30 4170 4028 LOL DOESW GEN Qle SEND SEMICOLON 
1423 X SEND SEMICOLON TO GEN ROUTINE+ INDICATING 
| 1424 X €ND OF THE STATEMENT. 
D 1425 4170 88B vy 25 0233 4885 DOES LOA COLI 3F Q2e END OF DO RANGE 
1426 4376 3BB 4 25 0233 4885 NOEOF LDA COL15 3F YEStIF THE CARD JUST COMPLETED IS THE END OF A 
, 1427 X DO RANGEs GO TOMD4O, 
> 1428 NOs 
1429 OFF 2000 
| 1430 ee OFF at 3 LOL 895 Q3~e ANY LABEL 
Dd 1431 eee OFF ek TEQ SCANA NOt IF COLS 1-5 OF THE NEXT CARD ARE BLANK: TOAS1. 
1432 9k OFF wk LoL #% IF COL 1 IS NUMBER SIGN GO TO SPECIAL ARESERV 
epee 14353 HR OFF ak TES HeNL. 1F WORD ENTERING PROCEDURES 
Doers 1434 *ee OFF ae 1 LOL 3F 2F YES! 
n ZB t 1435 *4% OFF #% 2 STL SHFT Q4. SCAN FROM COL 1 
Ez ho 4436 ee OFF ae LOA LABEL SCAN9 SET TO SCAN THIS CARD AT COLUMN 1 RATHER THAN 
Dees. 1437 we OFF ak 3 SUF STAN COLUMN 6+ AND SET THE LABEL SWITCH (C7) TO 
ae: 1438 eee OFF 4% NU4 9000U 0000 JUMP TO THE CHECKING ROUTINE MENTIONED IN THE 
goe< 1439 we OFF 4k 4 ALE o# COMMENT JUST BEFORE STEP DUO. THEN RETURNASI, 
DE s38 1440 eee OFF et OFF 9001 
F ozs 1441 aK OFF 4 OFF 9002 
_ bene 1442 #eK OFF 4x OFF 8002 
2c Dp eFte 1443 me OFF 6% OFF 8001 
19 88552 1444 ON 9000 
18 a2 bee 1445 4865 835 6 31 4488 44uae 3 CLL Q3, ANY LABEL 
7D Frade 1446 4458 888 vy 82 4050 4491 TEQ SCANL NOt IF COLS 15 OF THE NEAT CARD ARE BLANKs TORS1e 
iS g25R5 1447 4491 888 4 30 4Bus 4695 LOL# 19000 80000 Ht IF cOL 1 IS NUMi SIGN GO TO SPECIALHRESERVED 
sD £82 0g 1448 4695 688 0 82 3100 4498 TEC MEMLL WOR) ENTERING PROCEDURE.> 
149 Y85se 
2 at ee 
Te Best: 
lo oF oa 
<oru.Z 
° a tteee 
PES 
7 88236 
qui 5 Bh 
242Z0 
oo. 
ee 
Zon 
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14uy 4498 88B 0 30 4650 4353 LOL 3F YES! 

1450 4353 88B 5 50 4257 4859 STL SHFT Q4~e SCAN FROM COL 1 

1451 4859 888 90 25 4370 4264 LDA LABEL SCaN9 SET TO SCAN THIS CARD AT COLUMN 1 RATHER THAN 
1452 4650 3888 9 35 4553 4254 3 ERS STAN ColLUMN 7eAND SET THE LABEL S¥TICH (C7) To 
1453 4553 88B 3 HH HHHOQ HHHH ecON =6HHHHH QHAHH JUMP TO THE CHErKING ROUTINE MENTIONED IN Tre 
1454 X COMMENT JUST 3EFORE STEP D4O. THEN 

1455 X RETUR! TOMS1.« 

4450 ON 9501 

4457 ON 9002 

1458 ON 8002 

1459 ON eye 


1460 4710 86868 05 4030 4882 DIVT2 LOX LAST QlOeADJUST COROUTINE LINKSe 


1461 4862 888 0 65 483u 4086 STX OSAVE OlvTi STORE CURRENT STARTING PLACE FCR SCAN CO-RTNE 
lug2 4086 BBB Y 05 4Ou2 42oy DIVT2 LOX NORM IN EXIT OF THIS DIVRT SUBROUTINE. WE WILL 7 
14635 4294 6BB 0 65 424u6 4698 STX  GENX DIVRT COME BACK TO THIS AFTER ALL SPECIAL ITEMS 

1464 4698 88B 0 60 4300 4753 DIVRT STA OIVBS HaVe BEEN INSERT IN THE PSEUDOCODE. 

1465 4753 g8B 09 25 424B 4500 LDA SCANX 

1466 4500 888 0 30 4953 4705 LOL aF QLLeNEXT ITEMe 


1467 4705 888 
1468 4358 886 
1469 4908 6B8B 
1470 4504 BBB 
1471 4906 8BB 
1472 4704 38BB 
1473 4907 #3888 
1474 4560 888 
1475 4953 888 
1476 4356 686 
1477 4904 38B 
1478 4360 688 
1479 4286 888 
1480 4859 888 


82 4908 4358 TEQ JF ZEROLOOK aT THE NEXT ITEM TAKEN FROM THE INSER- 
60 4910 4908 STA SCNXX \F TION TABLE. IF IT IS ZERO, WE ARE DONE 

25 4300 4504 1 LOA OYVBS 3F INSERTING ANO SO WEREXIT TO RESTART THE SCAN 
70 4906 QOOA 3 ADD RA OK CO-ROUTINE > 

25 0000 4704 LDA 0000 Ql2eSEND TO GEN. 

31 4907 4907 CLL SENO ITEM TO GENeTHEN RETURN TORQLI. 

82 4360 4566 TEQ IMF CODING OETAILS!? Ol vT2 1S USED TO RE=INSERT THE 
30 4953 4028 LOL 2F GEN PREVIOUSLY SCANNED ITEM AT THE END OF THE 
O7 0001 4356 2 TIR 0001 OTHER INSERTS» DIVT, IS USED TO RESET GEN 
70 #4390 4904 ADD OyVBS TO ENTER AT Gle OIVRT IS THE NORMAL ENTRY. 
60 4300 4564 STA oOTVBS 38 REGISTER A CONTAINS THE STARTING T<TABLE 

25 4834 4286 st LOA DSAVE ENTRY. THIS ROUTINE 15 ENTERED FROM GEN. 

82 4910 4839 TEQ SCNXX | 

50 4834 4486 STL OSAVE 


ecceccoccceccocdcecocecoococce 


Lua 4486 68B 0 30 4910 4o28 LDL SCNXX GEN 

14g2 Is ASSEMBLER STRUCTURE 

1465 TABLE OF CONTENTS 

1464 THIS SECTION IS A COMPLEX OF SUGROUTINES FOR 
1485 X ASSEMBLING THE MACHINE LANGUAGE INSTRUCTIONS. 
1486 X THE NAMES OF THESE VARIOUS LEVELS 4ND THEIR 
1487 X FUNCTIONS ARE 

1486 X Ile ASML MACRO ASSEMBLER oo. ASSEMBLES 

1489 x 1 TO 5 INSTRUCTIONS AND/OR 

1490 x PSEUDO=INSTRUCTIONS.» 

1491 X  125¢ ASM2 ASSEMBLES ENCODED INSTRUCTIONS? 
lage x FIXING UP THE ADDRESSES OF OPERAND 
1495 X 130, ASM25 HALF ASMBLER*LIKE ASM2 EXCEPT IT 
1494 x DEALS WITH ONE ADDRESS MrC ONLYs 
495 X 135. ASM28 SPECIAL aSSEMBLER FOR ADDRESSES OF 
1496 x SIMPLE VARIABLES ANO CONSTANTS, 

1497 X 150. ASIGN FINUS ADDRESSES OF OPERANDS 

1498 X {160.6 LS*  FINOS ADDRESSES OF STATEMENT LABEL 


3 





PRINTIZD IN U.S.A. 


1499 X 170. CASIN FINUS ADDRESSES OF CONSTANTS. 
ee 1500 X 180. ASM3 ASSEMBLES INSTRUCTIONS ANU 
dE: 1501 x FIXES UP REFERENCES TO*NEXT INSTe? 

ee 1502 X 190. ASM4 PROCESSES ASSEMBLED INSTRUCTIONS 
6 1505 x AND LOCATIONS+ IN OR OUT OF SEQUENCE?s 
os 1504 x AND PERHAPS LISTS THEM, 
eo 1505 - X 195, ASMS PUT ONE ITEM ON OUTPUT CARD, 
“A s2yo +37 800 V VF #010 49/0 ASMoOd LWA LIth ASmS le 180-4 ASSEMBLER 3 
eS 1507 4357 88B 0 05 4509 4570 ASM33 LOX ASM3 THIS SUBROUTINE ASSMELBES ABSOLUTE INSTRUC- 
si 1508 4509 g88 0 01 0000 0001 CON 01000 00001 TIONS AND FIXES UP REFERENCES TO 'NEXT?, 
| g 1509 4709 88B 0 65 4770 4357 ASM34 $TX COMT ASM33 A ONE=CYCLE DELAY IS KEPT,AN INSTRUCTION IS 
DR: 1510 4760 BBB 0 65 4770 4556 ASM35 STX COMT ASM32 NO PUT OUT UNTIL THE NEXT INSTRUCTION COMES 
: 1541 4970 @88 0 35 4724 4576 ASM36 ERS x¢ ALONG, 

i512 4576 @88B 0 20 4828 4680 BUF LIRL 
D 1513 4680 88B 005 4332 4570 LOX ASM3 

1514 4332 888 v 00 S010 9010 CON 00501 00010 
| 1515 4521) BBB O OS 4924 4570 ASM37 LOX ASM3 
D 1516 4924 B88 900 o010 0001 CON 00001 00001 

1517 4570 BBB 0 65 4624 4776 ASM3 STX TEMPS ASM31 
| 1548 4776 BBB 0 60 4420 4174 ASM31 STA TEMPS I800IS WXLOC SET 
» 1519 4174 68B 0 50 4926 4728 STL EXITS IF vO PARTICULAR LOCATIUN FOR THE CURRE:WT 

1520 4728 BBB 0 25 4aso 4532 LDA NxXLOC INSTRUCTION HAS BEEN CHOSEN: CHOOSE THE NEXT 

1521 4532 888 0 31 4335 4335 CLL LOCATION IN THE INTERLACE SEQUENCE. 

5 1822 4335 888 0 82 4688 4aas TEQ 2F. 

1523 4868 888 0 50 4880 4732 STL NXLOC 3F 

i524 4638 888 0 05 4732 4oBY4 2 LDX 3F FARNL 
D 1525 4732 888 0 30 4284 4686 3 LOL FILUP IBleFILi PREV INST 

1526 4264 888 U 25 OOOR 4338 LOA RL FILL BLANK AODRESSES IN PREVIOUS INSTRUCTION 

1527 4338 888 0 32 0800 4aug SHR  Qa00 IF ANY: WITH THE LOCATION OF THIS ONE 
D 1528 4849 BBB 0 57 0500 45357 SHL 0500 

1529 4557 BBB 2 32 0600 4721 SHR 0600 I82eASSEMBLER 4e | 

1530 4721 888 UV 25 4374 4976 LOA OLDLC ACTIVATE ROUTINE Io TO OUTPUT THE PRECEDING 
D 1931 4976 BBB 0 20 4928 4330 BUF RWORD INSTRUCTIONs SEXIT, 

| 1532 4350 88B 0 65 4374 4527 STX OLOLC CODING DETAILS! RX IS ORROSOOOFF WHERE RR ARE 
Ogu 1533 4527 888 0 05 4879 4aR} LOX IWORD RELOCATION DIGITS FOR M AND Ge S IS SIGN, AND 
| Rs: 1534 4881 BBB 0 30 «4683 «4555 LOL ASM4 FF ARE O OR 1 FOR NON“BLANK OR BLANK ADORESS+ 
Zee 1535 4683 888 0 05 4624 4727 LDX TEMPS RESPECTIVELY. RA IS THE INSTRUCTION+ RL IS 
ete = 1536 4727 388 0 65 4928 4530 STX RWORD THE EXITe ASM31=-ASM37 ARE SPECIAL ENTRANCES 
Dress 1537 4530 BBB 0 05 du20 4574 LOX TEMPS FOR THE MOST COMMON CASES IN SETTING RX, 
GF ue 1538 4574 988 0 65 4579 4926 STX IWORD ExIT3 
a» goes 1539 4289 @8BB O65 4568 4921 ASM43 STX EXIT2 ASMM4 Ie I90+ ASSEMBLER 4, 
| eee: 1540 492, BBB 0 60 4209 4171 ASMUG STA TEMP2 THIS SUBROUTINE PROCESSES ASSEMBLEO INSTRUC 
zOze 1541 4171 88B 0 05 4774 4927 LUX INCUQ TIONS AND LOCATIONS. ENTRY 190 1S USED FOR 
a 1542 4774 888 9 25 OOOR 4178 LOA RL OUT=OF “SEQUENCE LINES? 191 FOR THE PROGRAM 
are 1543 4178 88B 0 31 4331 433; CLL iF SEQUENCE. 
89552 1544 4494 BBB 0 65 4568 433; ASM42 STX EXIT2 iF ISOeSET aia 
n 25H 1545 4331 @8B 9 32 O400 4538 1 SHR = 0400 SAVE COMMENT RESERVED FUR NEXT INSTRUCTION IN 
Peaks 1546 4538 68B 0 35 4724 4177 ERS Xr PROGRAM SEQUENCE, AND INSERT TRE COMMENT 
530n5 1547 4177 888 v0 20 Coon 4531 RUF RL. fe OK » 
£8202 1548 4531 S8BB U 35 4667 437; ERS xoc 
tee ko 
Cates 
ernie 
OF Oho 
HE O> 
phe ee 
o7 zu 
=i 6 A 
We 
ieee 
eZ eu 
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1549 4371 888 5 20 4974 4377 BUF sIGlU LF 
ma 1550 4740 3886 v 50 4568 4377 ASMG] STL exITe LF 
BS: 1551 4377 888 VY OS «4779 «4734 LDY cHOLD 
2 1552 473; 8688 2 65 4u770 4775 STX <amMT 
» e 1555 4775 888 5 O05 4877 4979 LOx 3810 
25 1554 4979 8B8B 2 65 0503 4905 STX P0103 
é 4 1555 4905 BBS ¥ 65 O808 4960 STX 2010. LF 
= See 5 5 3 9B 5 65 OSD OS5T; Sor 3 
BD Res 1557 457) BBB 9 38 568 4965 ical atl: ena 
5 3 ) 1 f 9 50 4568 4965 STL EXITZ LF I91ePRINTs MAYBE 
pee ra 4960 8B YU 60 4631 4883 1 STA TEMPL PRTSW IF LIST MODE IS ONe PRINT THE ASSEMBLED LINE 
» eyes wen ceece — a a AND THE COMMENT. 
re ge Lot PROF) 
: toes yee aoe * PRNT SHR OF OO 1F 
wor 1 STL =PR2 
1564 wee ORE wm STX PO134 
See oot ore 2 re ees tte 
1567 ee OFF 4 OFF 9001 
1568 OK ORE me OFF 8002 
D 1569 wee OFF 4m OFF 9002 
ee wEK OFF am OFF 9001 
ON 9000 
E 1572 4975 888 »v 0S OS03 4355 PRON LOX P0103 
1573 4355 888 0 25 OS0R 4771 LDA P0105 
, 1574 4771 88B 0 3S Q009 4971 ERS H5 
D 1575 4971 BBB 0 32 0800 4730 SHR 9500 
1576 4730 888 0 37 0500 4738 SHL 0500 
1577 4758 888 0 20 oooc 4542 BUF RX 
D 1578 4542 88B vu 17 4542 4895 MTC 
1579 4895 888 J 60 0503 4555 STA P0105 
| 1580 4555 BBB 0 65 0808 4777 STX PO108 
D 1581 4777 388 vy 25 4631 4333 LDA TEMP1 
1582 4333 88B 0 30 4735 4887 LOL PROF LF 
Q 1583 4533 88B J 60 4209 4977 PRNT STA TEMP2 
D: 1584 = =94977 BBB v 25 000C $4887 LDA RX LF 
a 1585 4887 886 0 50 4689 4691 1 STL =PR2 
: 1586 469: 938B U 17 4691 4694 MTC 
Dd: 1587 4694 yB8B 0 32 OFOO 4757 SHR  OFOO 
a 1588 4757 88B 0 35 4909 4378 ERS® HHHOH OHHHH 
1589 4378 8BB UY 65 0565 4578 STX P0165 
Dé 1590 4578 888 0 60 0570 4778 STA PO1L7O 
1591 4778 BBB 0 25 4209 4978 LDA TEMP2 
: 1592 4978 BBB O17 #4978 493; MTC 
cp: 1593 4931 886 J 60 0534 4aR6 STA PO134 
: 1594 4866 BBB 0 65 0539 4a891 STX P0139 
ry! oe ON 9001 
96 ON 9002 
$ 1597 ON 8001 
; 1598 | ON B002 
ie] 
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1599 
1690 
1601 
1602 
1605 
160% 


1605 | 


(4 
he Ld tag bot 


1607 
1608 
1609 
1610 
l6ili 
16}2 
1615 
1634 
1615 
1616 
1617 
16,5 
1619 
1620 
1621 
1622 
1625 
1624 
1625 
1626 
1627 
1628 
1629 
16390 
1631 
1632 
1635 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1645 
1644 
1645 
1646 
1647 
1648 


Heyy 
4354 
4381 
4554 
4380 
4754 
4690 
SSE5 
4735 
4930 
4581 
4935 
4293 
425) 
4755 
4180 
4997 
4580 
4933 
4385 
4938 
4780 


4557 


4980 


BSS 
B88 
885 
885 
388 
888 
886 


om FO OE 
A heath healt 


388 
8688 
8388 
386 
888 
BBG 
388 
386 
388 
383 
388 
B88 
BSB 
88B 


BSB 
6BB 


eH 
eK 
fk 
Prt 
eek 
em 
IK 
4K 
eae 
eK 
eR 
sek 
4 
eK 


25 
70 
60 
il 


Li 
00 
<5 
25 
60 
0S 


o7 
65 
60 
Q5 
65 
25 
30 
26 
20 
18) 


coc oceoce eocoeoocoucaocccecec 
brad 
8 


0050 
4756 
0050 
0417 
0050 
o401 
0190 
477% 
4770 
4779 
4733 
0500 
0500 
0503 
0508 
4405 
4770 
4631 
4385 
4938 
4209 
4568 


4354 
4380 
455y 
4689 
4754 
4689 
9190 
“+930 
4930 
458} 
4935 
4293 
4251 
4755 
4189 
4957 
4580 
4933 
4337 
4938 
4780 
4337 


U0 50 4464 4980 
0 90 41861 


OFF 
OFF 
OFF 
OFF 
OFF 
OFF 
OFF 
UFF 
OFF 
JF F 
OFF 
OFF 
OFF 
OFF 


a® 
** 
em 
em 
am 
xm 
ae 
#* 
*% 
«x 
me 
ek 
+ 
4k 


Q000 


&PR1I 
~PRI 


&PRe 
ee 
rrmigon 


PROF 


ASMS 
ASMST 


50001 
50002 
50003 
50004 
50005 
i 


$0006 
PeHSw 
PC-ON 


LDA 
ADD 
STA 
PRN 
STA 
PRN 
JMP 
iL a 
LOA 
STA 
LOX 
SHR 
SHL 
STX 
STA 
LOX 
STX 
LOA 
LOL 
CLA 
SUF 
LOL 


STL 
JMP 
OFF 
OFF 
OFF 
STA 
STA 
STA 
STA 
STA 
LDA 
ao0 
STA 
STA 
CLL 
CLL 


LIRL 


WC 
B1GQ« 
L¢ 
P0017 


POOOL 
&CROS 
comet 
comT 
CHOLO 
BS 
0500 
0500 
PO10S 
POLOS 
BOS 
COMT 
TEMP L 


TEMP 2 
ExITé 


EXITIL 
50001 

9000 

39001 

9002 
ROLLY 
ROL26 
R5138 
RO150 
R162 
ASMS5T 
KON] 
ASMST 
ROL7S 
IF 


LF 
1000 


-PRI 
~PR2 
=“PR2 


ar 
1F 


ASMS 


ASM5 


ASAST 
0900 


iF 
LF 
iF 
iF 
iF 


SF 


EXIT1 
PCHS# 


ar 


T92e¢ASSEMBLER 5 
PUT THE CONTROL WORD INTO THE OQUTPUT 
(ROUTINE 195) 
AND ALSO STORE THE COMMENT FOR THE NEAT 
INSTRUCTION LINE. 


I93e¢ASSEMBLER 5 
PUT THE INSTRUCTION WOR INTO THE OUTPUT 
(ROUTINE 195). HEXIT. | 
CODING DETAILS? 
ASM43,ASM44 PUT REGISTER A AS CUT=OF “SEQUENCE 
LING INTO NEXT LOCATION OF UNIQUE STORAGE 
ASM42 PUTS TEMP2 AS OUT“OF=<SEQUENCE INTO 
LOC SPECIFIED BY 7 ADDRESS OF RA+ RELOCATION 
DIGIT FOR M BEING SPECIFIED IN REGISTER Le 
ASM41+¢ASM4 HAVE CONTROL WORD IN REGISTER Ar 
INSTRUCTION WORD IN REGISTER x, 
195. ASSEMBLER 5 
THIS SUBROUTINE IS THE SOLE COMMUNICATION 
BETWEEN THE COMPILER ANOD THE GUTPUT CARUS. 


oP eee ee Ee 


195eSTORE WORD 
PUT THE OUTPUT WORD IN THE PUNCH INTERLACE,. 
I96eEND OF CARO 
NOt IF THE CARO IS NOT FULL YETe HEXITe 
YeSé 


I97eCHECK CARD 
UNLESS NO CARDS MODE 15 IN EFFECT+ UNLOAD 
THE SUFFER. IF THE 22ND READ STATION IS NON@ | 
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_ REPRODUCE, COPY, USE OR TRANSMIT THIS DOCUMENT AND/OR THE INFORMATION THEREIN CONTAINED. 
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Le espememallicnsnmmentnemmnadllinesmemimememelinimarmeeese ee ea ee ee cs 


é 1649 #ee DFE xx 
wz 4650 ee QFE m& 
ie) 
$; 1651 xee QPF xk 
o 1652 WER OFF 4m 
6 o 16535 #e% OF 4% 
HE 1654 eee OFF «ek 
eau 1655 eee OF Ke 
yea 1656 eee OFF am 
a 1657 eee OFF ak 
$a 1658 **% OFF +% 
36 1659 eae OFF ke 
> 1660 *ee OFF 4% 
1661 eee OFF x 
1662 eae OFF ae 
1665 eK OFF am 
1664 *ee OFF «% 
1665 eee OPE +e 
1666 EE OFF 4% 
1667 eam OFF gx 
1668 eR OFF 4% 
1669 HR OFF 1k 
1670 eee QF «xe 
1671 *e% OFF #* 
1672 **e OFF xe 
1675 eek OFF «* 
1674 wee OFF ke 
1675 eee OFF x 
1676 4% OFF xx 
1677 wee OFF £€ 
1678 *eE OFF 4% 
1679 aRK OFF 4% 
1660 eRe OFF «% 
1681 eee OFF wk 
1682 *eK OFF aK 
e 1685 eee OFF x8 
9 1684 eek OFF 4% 
o 1685 *ee QF «e 
t 1686 *ke OFF xe 
‘J 1687 ¥Xe UPF #& 
a 1686 
g 1689 
i 1690 
z 1691 415) 688B ») 60 0925 4781 
F 1692 4162 888 UV 60 O948 478) 
2 1695 4163 888 9 60 0968 4781 
5 1694 4164 886 09 60 oO918 4784 
0 1695 4185 6888 » 60 0938 478) 
F 1696 478, 886 0 25 4989 4932 
& 1697 49532 888 » 70 4097 49<0 
& 1696 4900 6868 9 60 4989 4464 
3 
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‘ WRITTEN PERMISSION OF SPERRY RAND CORPORATION, AND FURTHER AGREES TO SURRENDER - 


SAME TO SPERRY RAND CORPORATION, UPON DEMAND 


&5ASM 
-SASM 


1 
&ASMS 


PCHOF 
-ASMS5 


RASSM 
~ASS™ 
2AS5M 
~ASS™ 


50001 
§0002 
50003 
50004 
50005 


TIR] 
TES 
aut 
Rau 
LO 
LDA 
TEO 
ERS 
ADD 
RSS 
LIRI 
LOX 
LIR} 
LOX 
LOL 
TEGO 
LOX 
HLT 
LIR1L 
OX 
LIRt 
LOX 
STA 
RCC 
LOX 
HLT 
EQU 
LDA 
ADD 
STA 
IIR 
LOAL 
4001 
ADDL 
avo) 
AQDD1 
ADO] 
OFF 
OFF 
ON 
ON 


STA 
STA 
STA 
STA 
STA 
LDA 
ADD 
STA 


9999 
IF 


ROUVOL 

wld 

ROOLS 

oF 

X5 

XOM 
0100 
0000 


0036 


RO1L06 
oF 


tile 


0084 
0120 


RO186 
ROOOL 


tiii 
~ASMS 
RWOL 
L1Td 
RWOL 
50001 
ROO18 
ROO30 
ROOVEe 
ROOKe 
ROOS4 
ROO54 
added 
g001 
9000 
9001 
900¢ 
RO126 
RO148 
R168 
ROLIS 
ROLS6 
ASMST 
KON] 
ASMS5T 


BLANK: SUM CHECK THE IMAGE AVAILABLE THERE, 
GIVe bli2 Halt TF THIS FAILS» AND DUMP ASR 
26 AUPFE 2. 


“SAS 


~S5A5M 6 EJECT HEADER CARDS (80=COLUMN ONLY) 


2F 


BUL 
9F 
I98eCOMPUTE CHECK SUM. 
3F COMPUTE SUM OF NUMERIC PORTIONS OF FIKST 
os SEVEN WORDSt AND PLACE IN WORD 3 OF CARiDe 


iF 
~ASMS 
BUl 
18 


T99ePUNCH 


PUNCH CARO? INCREASE SEQUENCE NUMBERSAEXIT. 


88 


~ASSM 
“-ASS5H 
#“AS5™M 


ex 


LF T9Se¢STORE WuRD 

iF PUT THE OUTPUT WORD IN THE PUNCH INTERLACE. 
ad TI9SeEND OF CARD 

LF NOs: IF THE CsRO IS NOT FULL YETs 
LF YESs 


BEX] Te 


SF 
EXIT1 


er er rm en it pe pe 
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WRITTEN PERMISSION OF SPERRY RAND CORPORATION, AND FURTHER AGREES TO SURRENDER 


© 
SAME TO SPERRY RAND CORPORATION, UPON DEMAND 


79 


= 


» pu OSN © oO — RN 
» ¢ °e 


1699 


1700 


1701 
1702 
1703 
1704 
176% 
1706 
1707 
1708 
1709 
1710 
‘7ii 
1712 
1743 
1714 
41715 
1716 
1717 
1718 
i719 
1720 
1721 
1722 
i725 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
i732 
1735 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
L742 
1745 
1744 
1745 
1746 
1747 
L748 


4186 
498 4 
4651} 
44Sy 
4557 
E341 
“sda 
4898 
4956 
4382 
4565 
4188 
4890 
KUQs 
4345 
4552 
478s 
4737 
HERY 
4497 
4299 
4954 
45598 
4782 
4759 
4982 
4758 


4383 
4553 
4783 
4742 
4297 
4955 
4964 
4959 
4958 


4084 
4963 
4489 
4693 
4896 
4499 
4955 
4654 
4696 
4664 


388 
8868 
888 
BBB 
386 
388 
888 
88B 
888 
888 
888 
888 
3BB 
BSB 
386 
886 
a8B 
888 
888 
388 
JB 
888 
B88 
888 
386 
388 
388 


3865 
BSB 
888 
B86 
388 
88B 
388 
3BS 
388 


888 
888 
868 
388 
888 
866 
888 
386 
388 
888 


cc oecccccecoceccococeccecoce 


ec. ce €©ecd & 


oococcccocce 


60 


a1 


a1 
Os 
OG 
82 
22 
46 
25 
82 
OB 
o5 
OB 
05 
30 
82 
OS 
67 
OB 
O05 
OB 
05 
60 
61 
05 
67 
e5 


70 
60 
07 
29 
74 
74 
74 
74 
74 





0958 
4484 
4YuB4 
1000 
9999 
4894 
4898 
0800 
O911 
4a9u 
0000 
4a90 
9881 
4345 
0872 


4894 


4737 
4112 
9997 
4299 
9987 
4558 
0978 
0800 
4982 
l11i 
0908 


4016 
0908 
4181 
0911 
0931 
0951 
C951 
0971 
0971 


0027 
4336 
4541 
4696 
4499 
0008 
0027 
0231 
0231 
0231 


4981 
4uay 
4484 
4537 
H3u4 
4344 
4537 
4956 
4382 
4585 
4188 
4742 
4493 
4297 
4582 
4785 
0150 
4894 
4497 
47492 
4954 
4297 
4782 
4758 
0150 
4782 
4383 


4585 
4783 
4960 
4297 
4984 
4958 
4959 
Q00¢ 
000C 


4983 
HUBS 
4693 
4396 
4955 
4955 
4684 
90n¢ 
48au4 
4134 


$0006 
PCHSW 
PCHON 


&ASMS 


~ASMS 
PCHOF 


&ASSM 
“ASS 
&ASSM 
~ASSM 


F ARNL 


STA 
CLL 
CLL 
LIRd 
TIrRl 
TEQ 
RBT 
RBU 
LDA 
TEQ 
LIRI 
LOX 
LIRL 
DX 
LOL 
TEO 
LOX 
HiT 
LIR’ 
LOX 
LIRd 
L.DX 
STA 
RCC 
LOx 
HLT 
LDA 
EQU 
ADD 
STA 
IIR 
LDal 
ADD 
ADDI 
ADD1L 
ADDL 
ADDL 
ON 
ON 


LDA 
ADD 
LOL 
TEQ 
TGR 
$US 
STA 
ADD 
ADD 
STA 


ROLS6 

iF 

iF 
1000 
9999 

oF 


ROOVY 

ROLL 

oF 
0000 


9681 


ROO7T2 
9F 


Llid 
9997 


9987 


RO178 
ROOOO 


l1iii 
RWO1L 
-~ASM5 
LIT. 
RWwO1 
50001 
ROLL 
ROL31 
RO151 
ROIS, 
ROL7L 
ROLV74 

8001 

8002 


LEVEL 
INCRE 
KN200 
iF 


RL 
LEVEL 
BAND 
BAND 
BAND 


26 


3F 


aF 


8u1 
oF. 


3F 


2F 

iF 
“ASMS 
BUL 
iB 


8B 
2F 
~ASSM 
~ASSM 
=ASSM 
RX 
RX 


aF 
aF 


RX 


I97e¢CHECK CARD 
UNLESS NO CARDS MODE IS IN EFFECTs UNLOAD 
THE BUFFERe THE THE 2ND READ STATEION IS NON~ 
BLANK» SUM CHECK THE IMAGE AVAILABLE THERE, 
GIVE 112 HALT IF THIS FAILS+ AND OUMP HS5R 
BUFFER. 


I93eCOMPUTE CHECK SUM, 
COMPUTE SUM OF NUMERIC PORTIONS OF FIRST 
SEVEN WORDS+ AND PLACE IN WORD & OF CARDO. 


199ePUNCH 
PUNCH CARDtINCREASE SEQUENCE AUMBER? FEAITe 


FINO AND RESERVE NEXT LOCATION 
IN PROGRAM INTERLACE | 
RX IS EXIT+ RA GETS OZLLLLOOO0 


Ou? Oe 


feces cny * eons Seng i er error, Sette 
- 





1749 4134 388 0 26 4955 4955 CLA 28 | 
ae 1750 4686 386 2 50 4388 4340 FILUP TL) et lLe G FILL BLANK ADORESSES IN PREV [NSTRUCTION 
WS: 1751 4349 «©388B 4D 77 «#44340 «4893 ATL. & Ra a PLACE TO FILL ,ITHY FORM ORLLLLOVOO 
F o 17520 4a93 3888 9 25 4o2e 4334 Lor R*ORD ee: 
a 6 a. 1753 4354 6868 9 05 o004 4588 Dy RA 
2B fo 1754 4568 BBB ) 37 0800 4699 SHL 0800 
Q ae 1755 4699 @88B 4 70 4301 4936 AOD B1G00 @FILL 
3 i fanal 17Ee nes Miya] wl or mere 434) hee did IIs HHH 
2D Sis 1757 = 4540s -8BB 0 35 «G008 «484g ERS RL 
= $a 1758 4544 888 0 20 4579 4S3y BUF IWORL 
om N° 1759 4534 888 0 60 4579 4734 STA WORD 
dE: 1760 4734 88B 0 25 OCOR 4788 LDA RL 
1761 47868 88B 0 35 4740 Uud42 ERS X1 
| 1762 4942 88B 0 20 O00C 4346 BUF RX 
» 1763-4346 «BBB 0 35 4201 4339 ERS XOM 
1764 4359 888 9 60 4gz—R 4936 STA RWORD “FILL 
1765 4936 BBB y 25 0008 4949 ~FIL} LOA at 
, 1766 4940 68B 0 35 4617 4934 ERS xO 
1767 4934 8B 0 32 0100 4988 SHR 0100 
| 1768 4988 88B 970 430) 4388 ADD 81690 ~FIL2 
D 1769 4389 9888 0 20 4928 4384 RFIL2 BUF RWORD 
1770 4384 888 9 35 4201 4559 ERS XOM 
1771 4559 888 0 60 4928 4584 STA RWORD 
5 1772 4564 BBB 0 25 OOOR 4aa9 LDA RL 
1773 4889 888 9 32 QHOO 4su6 SHR 0400 
1774 4546 38B 0 35 4724 4784 ERS XC 
D 1775 4784 688 0 20 4579 4536 BUF WORD 
1776 4536 9888 0 60 4579 4388 STA IWORD -FIL2 
| 1777, 4756 «888.905 C0OA 4190 GOTO LUX RA G "GO TO? SUBROUTINE 
8 1778 4190 3BB 0 25 4o28 4386 LOA RWORD G RX [S$ OROQOOQOOOD+ RL IS EXIT LINE, 
1779 4386 888 0 37 0800 4697 SHL 0800 G If PREV INST HAS BLANK ADDRESS +MERELY FILUP. 
1780 4697 8388 0 70 4225 4586 ADD B1G99 =GOTO 
, 1781 4587 88B 0 25 oOo0tC 4686 &GOTO LDA RX FILUP 
| 1782 4586 8BB 0 25 4880 4786 ~GOTO LDA NXLOC G ELSe IF NXLOC IS NONZERUs ASSEMBLE a UMP 
. fees 1783 4786 BBB 070 4201 4986 ADD xXOM “GOT! G@ INSTRUCTION 
D ser? 17684 4966 688 9 00 o00R 0000 -GOT! JMP RL 0000 
gaee 1785 JMPRL EQU <GOTL 
eee 1786 4987 8BB 0 25 4740 4192 &GOT1 LDA Xj} 
| ars 1787 4192 888 0 35 oOOC 4746 ERS RX 
Gt ul 1788 4746 8BB 0 60 4624 4187 STA TEMP4 
GOS 1789 4167 888 9 75 oO0C 4776 SUB RX ASM31 
Des3e 1790 4927 888 0 30 4196 4148 INCUQ LOL UNIQU &  UNIQU TO RL 
zoe 1791 4148 8BB 0 07 0001 4501 IIR 0001 & INCREMENT UNIQU BY } 
E GSE 1792-44501 8BB 9 70 0O00B 64387 ADD RL G EXIT TO RX 
20 Parts 1793 4387 388 260 4196 9000¢ STA UNTIQU RX 
Io QOEZS 1794 4744 8BB 0 65 4ol3 4787 ASIGN STX coodos Te 150. ASIGN SUBROUTINE 
18 webs 1795 X THIS SUBROUTINE FINDS+OK MAKES+THE MEMORY 
7D Fake 1796 X ASSIGNMENT FOR SIMPLE VARIABLES: ARRAYS» OR 
Is 25 e5 1797 X TEMP STORAGES., IT IS NOT A TRUE SUBROUTINE, 
IS £3802 1798 X FOR IF THE ITEM TURNS OUT TO BE A CONSTANT 
14 > bog Oe 
13 crate 
2 REEe 
WD 3289 
io = Fa 
9 f005< 
a es 
7 88280 
6 Zlgee 
sp 2uz0 
4 e3bu 
3 eZea 
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1799 X OR HAPPY ARRY+ IT JUMPS INTO THE MIDDLE OF 

ae az 1800 : X  ASM28 ROUTINE. 

Ds: lag) 4787 888 0 70 4603 4589 ADD 81G60 “ASN4 150«I1S 1T A TEMP 

5 1802 4589 88B 950 Wold 4339 -ASNY STL coo04 LF YEStIF THE ITEM TO BE ASSIGNED IS A TEMP STURAGEF 
5a 1803-4339 «BBB 0 35 «(COus «4845 1 ERS XM ASGN 1 GO TOHI52. 3 
D Ac< 1804 = 4545 BBB 0 30 «4ao7 464) ASGN1 LOL 6F BR NOs 
$a 1805 4897 BBB 0 60 4631 4539 6 STA TEMPL ISLeWHAT 1S TABLE ENTRY 
= A soos S823 S55 5 355 S7ei 4365 ERS AMM OEF SIF THE TABLE ENTRY INUICATES THIS ITEM Is 
tS 1807 4343 888 0 77 4343 44g ATL DEFINED IN UNIQUE OR COMMON+ GOTOHDEFX. 
St 1808 4946 88B 0 06 4899 4S99 CLX PARSIF THE ITEM IS A PARAMETER+GO TO THEWPARAMETE 
. 3 1809 4899 88B 0 32 OU40O 4739 SHR  O40¥ CONtEXIT, IF THE ITEM IS A CONSTANT, GO TO STEP 
D &: 1810 4739 888 0 70 4941 000, ADD Ra 138 INBASM28+OR IF DOING A FUNCTION CALL GO 
° 1611 494) 688 0 00 4010 9000 JMP C0000 0000 TO CASIN®STEP 170. 

| | 1812 4019 88B 0 37 0700 4939 co009 SHL 0700 EQUSIF THE ITEM IS UNDEFINED AND EQUIVALENCED TO 

|] 1613 4939 888 970 4191 4ouYy ADO TEMPS OTHER ITEMS*+GO TOHE1. 

1814 4944 8BB 0 60 419) 4543 STA TEMPS UNOIIF THE ITEM IS UNDEFINEU+NOT EGUIVALENCED» 

1815 4543 BBB 0 25 4631 4189 LDA TEMPL ASSIGN IT IN UNIQUE STORAGE AND GO TOMDEFX. 
| 1816 4189 BBB 0 37 O400 4339 SHL 0400 1B HAPSFINALLY IF THE ITEM 1S A HAPPY ARRAY ASSUME 

1817 4590 88B 0 60 4209 4789 &ASNY STA TEMP2 TRSW WE HAVE BEEN CALLED BY ASM264ACUUST OP CODE 
| 1818 4789 888 0 05 QOOA 4743 TRSW LOX RA iF FOR INDEXING IF NECESSARY+ THEN CONVERT TO A 
D 1819 4989 8BB 005 O00A 4743 TRON LOX RA iF SIMPLE VARIASLE AND RECYCLE ATA#I51. 

1820 4743 BBB 0 30 4745 4347 1 LOL TROFF IS2eREINSTATE TEMP 

1621 4347 BBB O 0B 4701 444s LIRL TEMPS INS UNLESS PROCESSING & DO STATEMENT, THE TEMP 
D> 1822 4745 988 007 HHHH 4348 TROFF IIR = HHHH STORAGE LOCATION IS PUT BACK ON THE LIST OF 

1623 4348 888 0 35 4209 4390 ERS TEMP2 | POTENTIAL TEMP STORAGES FOR FURTHER USE, 

le24 4390 88B 0 20 4uos 4790 BUF s8]GO0i GO TOHDEFX 

 ] 1825 4790 B88 0 0B 1749 «#4943 LIR1 w9999 

1826 4943 BBB O77 4o4u3 4O13 ATL CQVO3 CODING DETAILS! RA IS THE OPERAND STACK ENTRY? 
| 1827 4010 88B 0 25 4631 4990 co000 LOA TEMPL RL IS THE EXIT FOR A PARAMETER: RX IS THE 

D 1828 4990 88B 0 70 4392 4395 ADD 81670 “ASN} EXIT FOR A DEFINED NON-PARAMETER, 

1829 4396 BBB 0 07 HHHH 4349 &ASNI IIR. HHHH | 
| ~- 1830 4349 888 0 39 0001 4391 ERS1 000! LF 

DD 1832 4395 B8B 0 07 Q00l 4394 “ASN1 IIR 000) iF 

1832 4391 B8B 09 30 4196 4548 ! LOL UNIQU 
Od We 1833 4548 8BB 070 O008 459] ADD RL 

Die 1834 4591 88B 0 60 4196 474g STA UNIQU 
n Zee 1835 4748 GBB 0 25 4631 4791 LDA TEMP4 
Ezho 1836 4791 88B 0 20 OOOR 4945 BUF RL 

D ees, 1837 4945 68B 0 64 9000 4897 STAL 9000 68 
gi ul 1838 4011 6888 000 4o13 4OL3 cooul JMP cooo3 
95 0< 1839 le 125¢ ASSEMBLER 2, 

Deze 1840 X THIS SUBROUTINE ASSEMBLES MACHINE LANGUAGE 
zOze 1841 X INSTRUCTIONS OF AN ALMOST SYMBOLIC NATURES 
pen. 1g42 X THE OP-coDE IS THE TRUE OP BEFORE INDEXING? 
zr Oe 1843 X AND THE ADDRESSES ARE EITHER ABSOLUTE REFER 
9852 legs X TO NEXT INSTRUCTION,OR REFER TO OPERANDS, 
025 qi 1645 X IN PARTICULARVAN ARRAY OPERAND IS ALLOWED? 
Fe az 1846 X AND THIS MAY CAUSE MANY INSTRUCTIONS TO RE 
ue eRS 1847 X GENERATEO. IF THE OPERAND IS NOT A LABEL 
teed 1848 X HOWEVER: THE ASSUMPTION IS MADE THAT IT GOES 
905 OF | 
et 
FSU>o 
6255 
Seon 
te 
iw os 
ae st 
Boz 5% 

“8 BG 
Re ez 
~ZEB0 


PRINTED IN U.S.A. 


ro) 


oOo Lh L ODN OO © 





1649 a X IN 4 ADDRESS AND THAT C ADDRESS REFER> TO NX1 
1850 4350 BBB Vv 60 4991 4193 ASMg STA TMPLU 125eASSEMBLE 265 ON M 


25 4999 4514 FEE LDA ALARM TO LOAD RBI» 


_REPRODUCE,COPY, USE OR TRANSMIT THIS DOCUMENT AND/OR THE INFORMATION THEREIN CONTAINED, 
IN WHOLE OR IN PART.OR TO SUFFER SUCH ACTION BY OTHERS, FOR ANY PURPOSE, EXCEPT WITH THE 


rE ie : 
[DI 5 1851 4193 386 2 50 4195 4547 $TL  éxITo SEN) THE M ADORESS TO ASM2.5 FOR ASSEMBLY: 
o 1852 4547 888 » 35 4617 4592 =Re xe (IF IT IS AN OPERAND,.WE WILL NEVER COME BACK 
5a 1855 4592 388 9 60 4194 4596 §STa TEMP? FROM ASM2.5*¢SEE THAT ROUTINE.) 
DSc 1854 4596 BBB» 30 4948 4550 LoL iF 
ae 1855 4990 BBB. 25 4991 4393 LDA TMPLy ASM25 
ZO a Ou +7979 wee » OU 4/7/90 4799 1 STA TEMPsé 
D b3 1857 4792 888 2 65 4394 4796 STX TEMPS 
6a Ah ae BAR : . pid oo LDA TMP1O I26eASSEMBLE 2¢5 ON C 
am “So 9 0400 38495 SHL. 3 SENi RESS T 20> FOR ASSEM 
> Siac dese. (Ben o 30: cons ea OL 0400 oe END C ADORESS TO ASM2.> FOR ASSEMBLY. 
1861 4992 88B 0 77 +4992 4595 ATL. 
> 1y620 4595 BBB 9 25 4394 4996 LOA TEMPy I27¢ASSEMBLE 3 
' 1865 4996 888 J 37 0100 4901 SHL =: 0100 SENU THE COMPILED INSTRUCTION TO ASMS FOR 
1864 4991 8BB 9 20 g00C 4793 BUF RX OUTPUT AND FINAL TOUCHES. EXIT. 
> 1865 4793 BBB 09 60 4624 4993 STA TeMP4 CODING DETAILS? ADDRESS 9999 MEANS NEXTe ADDRESS 
1866 4993 888 0 25 OOOB 4747 LOA RL 99II MEANS OPERAND STACK + II, FOR EXAMPLE» 
1g67 4747 888 0 32 0400 454 SHR 0400 9901 IS THE TOP OF THE OPERAND STACK. ADDRES 
1868 4594 6B8B 0 35 4724 4794 ERS X¢ SES LESS THAN 9901 ARE ABSOLUTE. 
 ] 1869 4794 B88 0 20 4750 4994 SUF TEMPS AT INPUT RA 1S a CODED INSTRUCTIONeRL IS EXIT 
~ 1870 4994 8BB 0 30 4195 4776 LOL EXITe ASM31 LINE. 
1871 Ie I30,. ASSEMBLERS 245 AND 2¢8 
 ] 1872 ASM2e5 DOES HALF THE JOB OF ASMZe GeVe 
1873 ASM2. 8 IS USED FOR SIMPLE VARIABLES: TEMP 
Z 1674 X  S$TORAGES; AND SUBSCRIPTS. 
D 1875 4393 888 9 35 OO4Ss 4795 ASM25 ERS XM 1306 WHAT ADDRESS 
1876 4795 888 060 4191 4995 STA TEMPS ABStIF THE ADORESS TO BE ASSEMBLED IS ABSOLUTE: 
1877 4995 888 90 70 4947 4397 ADD “HF 1 SET CORRESPONDING R=DIGIT ZERO ANDPEXIT, 
D 1878 4947 BB 999 0001 O000 CON 99000 10000 NXTSIF THE ADORESS REFERS TO NEXT INSTRUCTION? 
1879 4398 88B 905 401s 4197 &HF 1 LOX LITl iF TRANSMIT THIS INFORMATION AND TEMPORARILY SET 
1880 4397 888 0 70 4849 4897 “HF I AOD «HF 2 THE ADDRESS ZERO MEXIT. 
D l8el 4549 886 0 00 0098 9000 CON Q0009 80000 RAND OTHERWISE THE ADDRESS IS «aN OPERANO 
1862 4597 88B 0 06 435) 435; -HF2 CLX AND FURTHER TESTS ARE NECESSARY. 
° 1883 4351 888 0 25 41913 4197 LDA TEMPS LF 
D; 1884 4197 BBB 0 20 4194 O00B t BUF TEMP7 RL 
0 1885 4598 888 0 50 4551 4797 &HF 2 STL EXITS 
1886 4797 888077 #+%4Y797 475; ATL 
D: 1887 4751 8BB 0 25 4997 4749 LDA 1F 
i lsee 4749 88B U0 75 O00R 9004 SUB RL RA I5leWHAT KINO OF OPERAND 
: 1889 4997 8688 1 29 OQ00O 47928 1 LDA3 9000 ar FETCH THE OPERANC SPECIFIED 4NO CHECK TO SEE 
Dé 1890-4798 «88B 0 77 «+4798 «+4951 8 ATL WHAT KIND IT IS 
: 1891 4951 BB 0 32 0900 4998 SHR 0900 VARSFOR A SIMPLE VARIABLE OR TEMP STORAGE? GO TO 
: lag2 4998 8868 0 35 4413 4949 ERS L1T8 G TREAT TEMP STORE(4) AS SIMPLE VAR(0O) 
20D: ~ 1893 4949 888 070 4199 000A aDD RA ASM28+STEPRIS5+ AFTER WHICH WE EXIT FROM ASMZe 
: 1a94 4199 88B Uv 25 OOOR 4080 LDA RL vou00 ACCSFOR AN ACCUMULATOR SYMBOL THIS IS A BADRMESS,. 
a 1895 4080 3BB U9 30 4195 4399 VoO00 LUL EXITS INXSFOR AN INDEX VARIABLE +ASSUME WE WERE CALLEO 8 
i7 pe 1896 4399 8B8B Uv O05 4194 4599 LOX TEMP? ASM28 BY ASSEMBLER 1 FOR a STORE OPERATION. TRANS=~ 
i 1897 4081 888 UY 30 4195 4799 yoool LOL EXIT EEE FER BaCK TOMASM] EMITTING THE INSTRUCTIONS 
i - 1898 4799 888 oO 
s 
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1899 
1990 
1901 
1902 
1995 
1904 
1905 
19e4 
1907 
1908 
1909 
1910 
1911 
1912 
A945 
1914 
1915 
1916 
1917 
1938 
1919 
1920 
1921 
1922 
1925 
1924 
i925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1935 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
194) 
1942 
1945 
gu 
1945 
1946 
1947 
1948 


4999 
g042 
Qo4y 
4082 
0866 
9090 
4085 


2 OY bl Oe 


www y 


0291 
0245 
4599 
9003 
0643 
0047 
Q049 
0203 
0222 
0426 
0843 
0249 
2052 
0457 
0260 
0106 
0309 
o314 
0317 
0120 
0322 
9060 
0319 
0317 
1852 
Q109 
0320 
ores 
0403 
0210 
0626 
0030 
4015 
g2l9g 
0065 
0068 
0268 
06053 
0206 
0809 
0803 
Q607 


3868 


BBB 
BeBe | 


386 
3BS 
388 


B88 : 


oe i a 


ono st soa 


B88 


BBB 


386 
8BB 
868 
6BB 
888 
886 
888 
BBB 
3BB 
BBB 
888 
8368 
8BB 
8BB 
685 
886 
SBS 
388 
868 
885 
865 
886 
888 
B88 
858 
868 
888 
88B 
B88 
886 
868 
886 
868 
388 
BBB 
BSB 


BBB : 


B88 
B88 


BBB i 


21 


O35 
25 
05 
32 
30 
oho 
35 
20 
50 
65 
05 
30 
09 
65 
50 
39 
25 
82 
70 
82 
25 
82 
70 
82 
07 
30 
39 


25 
07 
07 
07 
30 
74 
32 
35 
05 
20 


25 
82 
QS 
29 
ai 


30 
25 
82 


0005 
0044 
0400 
0084 
0288 
0600 
0087 
vane 
0043 
4194 
0201 
4191 
0445 
0049 
0001 
4770 
0024 
4191 
4247 
1852 
Q004 
0060 
4604 
0109 
QOOA 
0317 
0001 
0322 
4986 
0317 
012} 
0002 
0001 
0000 
0201 
0000 
0400 
4724 
0028 
4623 
0417 
4013 
0068 
QOOA 
0001 
0206 
0809 
0201 
0005 
0410 


9000 
4514 
0000 
0886 
0090 
0099 
Q08a9 
ver] 
0245 
4531 
9003 
0643 
Q047 
G74 
0203 
Q222 
0426 
0843 
0249 
2052 
0457 
0260 
9106 
0309 
O314 
0517 
0120 
OL24 
0158 
O349 
4556 
0320 
0320 
0320 
0124 
0403 
0210 
0626 
0030 
4570 
0219 
0065 
0268 
0072 
0603 
0206 
1409 
0803 
0607 
0610 


BME 


VoO02 


VOOOS 


ASMe28 


= 
| an 


Mule PO 


C0008 


CON 
LDA 
CON 


LOAF 


LOX 
SHR 


LOL 
Lt Art 


ERS 
BUF 
STL 
STX 
LOX 
LDL. 


LOX1 


STX 
STL 
LOL 
LDA 
TEQ 
ADD 
TEO 
LOA 
TEGO 
ADD 
TEA 
IIR 
LOL 
LOL 
LOL 
LDA 
IIR 
IIR 
IIR 
LOL 


ADDI 


SHR 
ERS 


LOX# 


BUF 
LOL 
LOA 
TEQ 
LOX 


LDAL 


CLL 
TEQ 
LOL 
LDA 
TEO 


219000 


03040 
00057 
TMP 14 
0600 


VYUEUY 
XM 
TEMP7 
EXITs4 
TEMPS 
NPAR 


000i 
COMT 
TEMPS 
TEMPS 
81G50 
LF 
RA 


2F 

BrG25 

JF 

RA 

ae 
0001 


UMPRL 
uF 
B1G77 
0002 
0001 
0000 
EXIT4 
0000 
0400 
xc 
00100 
BIGO5 
FCEX 
C0003 


RA 
0001 


EXITS 
AREX 
AREX4’ 


50000 
ALARM 
00000 
673814 


LOOP 
L Sw 
QUYyYYU 


EXITS 
OF 


ASIGN 


oF 
NPARZ 
ATi 
ASM32 
SF 

SF 

SF 

6F 


00010 
ASMS 


iF 
CASIN 


LF 





G EXP # ERROR 

G 8 AD MESS 

ARRtFOR AN ARRAY VARIABLE GUO TO STEPHI4G, 

LABSFOR A LABEL +GO TO THE LABEL ASSIGN ROUTINE 
(160) AND THEN #EXIT, 


T35eASSIGN VARIABLE 
GO TO ROUTINE I50 To GET THE ASSIGNMENT FOR 
THIS SIMPLE VARIABLE. 

NPARIF {T IS NOT A PARAMETER*?GO TO STEPAI42 

CON IF IT IS A CONSTANT,WE GET To STEPAI38, 

PARS OTHERWISE IT'S A PARAMETER. 

I3S6GeCHECK OP CODE 
FOR A SIMPLE VARIABLE PARAMETER: WE CHOUSE 
ONE OF THREE SUBROUTINES IN THE OBUECT CODE s 
DEPENDING WHETHER THE OP 15 TO BE LDLe+ DAs 
OR STLe FOR A STA we OO ATLe SThLe FOR OTHER 
OPERATIONS+ WE OO LoL? OP RL. 


G CHECK IF DOING A FUNCTION CALL. 


I38.CHECK FOR ZERO 

SUSSIF THE CONSTANT IS ZERO+AND IF THIS I5 a 
ZERQ SUBSCRIPT ON A PARAMETRIC ARRAY GO TO 
STEPHIUGe OTHERWISE FOR A ZERO CONSTANTs ADU 

ZROSONE TO THE OP CODE AND SET 7 AND C TO NAT. 
GO TO ASM3 AND THEN#EAIT FOR ASM2,. 
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a ye Pe ee cee EE ag eT ee Ca ee ea eS 
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igug 0610 88B v 25 4191 1243 LDA TEMPS NZRO 

1950 1243 886 2 70 4408 026; AuD =srGol 

1951 y261 88B 9 O05 0063 4570 LOX wurthi ASMS 

1952 1409 BBB J 35 4667 0419 1 ERS xXa¢ IS9eCHECK FOR IIR 

1953 9419 BBB 3 82 Q422 0622 TEO iF YESiSEE IF THE OP Iy LDA AND IF ST CAN BE CHANGED 
1954 0422 88B 2 25 4191 1443 1DA TEMPS INTO IIRs IF 30, DO THIS ANDAEXIT. 

1955 1645 B8B8B | 30 4604 9256 LOL «6 G25 FROM 4SM2 VIA ASM3. 

4356 vese pnp v oe 0259 9622 TEO LF NO3 | 

1957 0259 gB8B 9 29 C001 1403 LDAL ooo] 

1958 1403 888 9 70 0805 0008 ADD BIGO7 

1959 0008 gap 9 50 0201 4556 LoL EXIT4 ASM32 T40¢ASSIGN CONSTANT 

1960 0622 gaB 0905 0224 0072 i Lox CASIN USE THE CASIN ROUTINE (170)¢ DISPLAY THe 
1961 0224 88B 2 25 0826 0228 LUA NPARIL COMMENT *"CONSTt. 

1962 0826 88B 9 12 2333 6523 ALF CONST 

1963 OFF g002 

1964 OFF 9002 

1965 HHH 

1966 ON 9002 

1967 | | ON g002¢ 

1968 0445 88B 2 29 oOo! 0228 NPAR LDAL 9001 NPAR 1 142eASSEMBLE 3 


1969 0228 985 
1970 0158 3886 
1971 0542 8B 
1972 0592 6888 
1973 0818 88B 
1974 1626 886 
1975 O2¢9 #88B 
1976 0453 888 
1977 18435 6888 
1978 4053 9388 
1979 0085 885 
1980 1603 656 
1961 1407 3888 


60 4847790 0136 NPAR 1 STA COMT NPAR2 GIVE APPROPRIATE COMMENT? THEN #EXIT FROM 
25 OO0O0R 0342 NPAR2 LOA RL ASM2 VIA ASM3e 

35 4740 0592 ERS Xj 

20 4016 0818 BUF LITL 

60 4624 1626 STA TEMP4 

07 HHHH 0229 TIR  HHHH 

35 0008 9O433 ERS Rt 

20 4191 1843 BUF TEMPS 

390 0201 4776 LUL EXITS ASMS1 

20 0065 4303 VQoQ3 LOL BRI 

09 QO0O1 1603 LOxi 900i 

65 1405 1407 STX TMP11 1446GET SUBSCRIPT 

37 QO800 dOB81LY SHL 0400 IN ASM2.5 WE HAVE AN ARKAY OPERAND. 


ecccecencocececeoctccecccocececeoceocdcecec. 
o 
Ye) 


1982 0844 88B 9 50 0216 4641 LOL BR IF THE SUSSCRIPT IS NOT ALREADY IN REGISTER 
1983 0216 B88 0001 1803 LOxi 9001 As COMPILE CODE TO STORE 4 IN TEMP IF NEC= 
1984 1803 688 9 65 1605 1607 STX TmMPl2 ESSARY» AND THEN TO LOAD a WITH THE SUBSCRIPT 
1985 1607 88B 9 60 4191 2043 STA TEMPS (USING ASM2e8e STEP 135). 

1986 2043 88B 0 35 0645 0247 ERS Hj | 

1987 0247 888 0 30 4974 0276 LOL s8YrGlo 

1988 0276 88B 0 82 0005 0079 TEQ AREX 

1989 9079 88B 0 05 0881 0283 LLDX CLacc 

1990 0861 38BB 0 25 4191 9093 LDA TEMPS 

1991 0093 8BB 0 05 4604 0306 LOX B1G25 

1992 0306 88B 9 30 0005 4599 LOL AREX ASH28 

1993 0005 388 0 25 1405 1807 AREX LDA TMPLL I4SeWHAT KING ARRAY 

1994 1807 BBB 9 30 4336 0438 LOL INCRE (REFER TO STEP a24 WHERE THE VARIOUS CASES OF 
1995 2438 BBB Y 06 1641 1641 CLX ARRaY WERE DEFINED.) HAPPY ARRAYS DO NOT 

1996 164} BBB 65 2243 3845 STX acc COME THROUGH THIS PART+GUT WE MUST E:RANCH 
1997 0845 8BB 4 32 0900 0657 SHR 0900 3 WAYS FOR THE OTHER TYPES OF ARRAYS! 

1998 3657 88B 9 70 o459 O00; ADD RA SAD:SAD+ GO TOMLU7. 
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1999 
2000 
2001 
2002 
2003 
2004 
2005 
20uo 
2007 
2008 
2009 
2010 
20i1 
2012 
20145 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2025 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
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2035 
2036 
2037 
2038 
2039 
2040 
204) 
2042 
2045 
2044 
2045 
2046 
2047 
2048 


04359 
4020 
1823 
Q225 
Q410 
o2l2 
0427 
eVu7 
0416 
022) 
0425 
2023 
1627 
0651 
0625 
2407 
2443 
1046 
0627 


1623. 


9825 
1414 
0619 
402] 
0624 
2607 
2643 
1245 
0447 
0251 
0055 
1857 
0859 
2807 
0616 
0420 
1625 
0253 
O4eu 
1826 
9235 
9239 
2843 
3007 
O42} 
1825 
0428 
9230 
9032 
0263 


BBB 
B88 
BeBe 
B88 
BBB 
BBB 
BBB 
BO 
B88 
B88 
BBB 


BBB i 


Eye |= 
BBS 
eae 
8BB 
888 
Ba 
88B 
888 
888 
388 
838 
BBB 
88B 
BBB 
BBB 
8BB 
888 
388 
388 
888 
BB 
888 
BBB 
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a8B 
888 
88B 
8BB 
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8BB 
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BBB 
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00 
0S 
00 
25 
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32 
30 
Q5 
39 
e5 
OS 
25 
39 
06 
75 
ai 
30 
Q5 


30 
82 
25 
35 
30 
05 
25 


30 
30 
25 
37 


32 
26 
13 
30 
20 
05 


25 
30 
25 
06 
30 
OS 
590 
a1 


0007 
1623 
0225 
00060 
0212 
9000 
1405 
¥VouUv 
0200 
2023 
0627 
0625 
QOu29 
0633 
1405 
QTL 
1046 
4625 
2127 
0825 
0212 
0200 
0421 
O424 
1405 
avis 
1245 
O447 


0008 
0253 


1857 
0859 
1405 
0600 
QOO00A 
0200 
1046 
1146 
1826 
0635 
OOO0A 
0100 
0805 
0421 
2225 
0428 
0250 
0052 
46880 
1886 


4O19 
1823 
0427 
0070 
0427 
0025 
2007 
V416 
0221 
0425 
4709 
1627 
0631 
4570 
2407 
2443 
1046 
0476 
1914 
1827 
14.4 
0619 
Q425 
0624 
2607 
2eULE 


fore ar Tonge 


4260 
0072 
0251 
0055 
3659 
1427 
2807 
0416 
O420 
1625 
1946 
4475 
19827 
0235 
Q239 
2845 
2007 
4570 
1825 
yw428 
&S70 
4927 
3625 
1586 


Coole 


AREX1 


ADDNX 


1 
COR1O 


cool. 


coR1} 


CLAcc 


IIR 
TEQ 
LOx 
CON 
LOX 
CON 
LOA 
SL 
SHR 
LOL 
LOX 
LOL 


LOA 


LOX 
LDA 
ERS 
CLX 
SUB 
ALF 
LOL 
LDX 
SHR 
LOL 
TEQ 
LDA 
ERS 
LOL 
LOX 
LDA 
LDX 
LOL 
LOL 
LDA 
SHL 
LOX 
SHR 
CLA 
ALF 
LOL 
BUF 
LOX 
SHR 
LDA 
LOL 


LOAA 


CLX 
LDL 
LOX 
STL 
CLL 


0007 
CORLY 


Q0000 
aF 
00000 
TMP1LL 
Qevv 
0200 
oF 
LF 
BF 
70000 
LITLO 
TMP11 
XMH 
7F 
81GO5 
PARAM 


28 
0200 
oF 
COR11 
TMP11 
XMH 


Ru 
LF 


TMP LL 
9600 


RA 
0200 

78 

FUDGE 


LITLO 
RA 
010 
BIGO7 
oF 
70000 


NxLOC 


C0009 


iF 
00070 


q0025 


uF 
ASM34 
ADDNX 
QO00A 
ASMS 


AREX2 


CORES 


4B 


CONST 


CASIN 


7F 
ADONX 


CORES 


ASMS 
COQOA 


ASM3 
INCUG 
3B 


ORDIORDINARY+ GO TOAI4B. 
PAR! PARAMETRIC+GO TO NEXT STEP. 
I46sPARAMETER CODE 
IF CORE MODE IS ON» COMPILE 
ADD 1FsLOX RAtLDA PARyAUO RX RA} 
ELSE COMPILE ADD PAR (OR LOA PAR IF SUSSCRIPT 
IS ZERO) + ADO NXT RAy GO TORTUD. 


I47e«SAD CODE 
IF CORE MODE IS ON, COMPILE ADD LF 
LOX gA-e TIR ORELATIVEs AND Re RA, 
ELSE COMPILE ADD FUDGE+ ADD NXT RAs 
GO TOHT49, 


G SUBROUTINE TO STORE A IN TEMP IF IT IS IN USE 





bate " ay a Fan ae ‘ _ Veg ae Se 








wp oO 
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2049 1886 BBB VY 25 2243 1645 LOA acc 
az 2050 1645 88B v B82 COOL 0248 TEN RX & IN [THE OBJECT PROGRAM 
Le 2051 0248 BSB 9 65 4926 0278 STX exITos 
< o 2052 9278 BBB 5 05 0080 9082 LUX af 
Oo 6 a 2055 yOb2 88H 9 30 g284 2086 Lil 4F 
3 > os 2054 2986 388B 2 OB 4701 4229 LIR1 T-MPS REM G Ire TEMPS STacKk 15 EMPTY: RESERVE a NEW PLACE 
3 Sa, 2055 0060 58B8B v 05 o284 4927 2 LOY IF INL UQ 6 IN JNIGUF. 
7 £6 £90 veou BOO 7 25 2243 1845 ! LDA acc 
et 5 2 2057 1845 BBB O 70 0647 OOO0A ADO RA 
a ez 2058 0047 BBB 0 0B 0000 0453 LIR 0000 
| § 6 2059 0453 BBB 0 29 Qgo00 0602 LBAL 9000 
D 2 2060 0602 886 0 35 4667 0819 ERS xXOC 
2061 0819 @8B8B 0 06 1622 1622 CLX 
® 2062 1622 BBB 0 65 2243 2045 STX ACC 
: 2063 2045 88B 9 05 OO0OA oO449 LOX RA 
2064 0449 88B 0 O07 HHHH 2252 IIR = HHHH 
| 2065 2252 8BB 0 35 OQOOR 0456 ERS RL 
> 2066 0456 88B 0 77 OUuS6 1859 ATL 
2067 1859 888 0 20 o00c 0263 BUF RX 
: 2068 0263 888 0 70 4247 0300 ADD B1G30 
oe 2069 0360 #886 0 64 O000 1402 STAL 9000 
- 2070 1402 88B 0 25 4603 0855 LDA B8IG60 
2071 0855 888 0 20 ooOoR 2059 BUF RL 
B 2072 2059 888 0 05 1750 0352 LOX woodod 
2073 0352 88B 0 30 4926 4709 LOL EXITS ASM34 
| 2074 1627 88B 0 50 0201 2003 CORES STL EXITY G THIS SUHROUTINE PUTS OUT THE cORE ONLY 
| D 2075 2003 BBB O 25 4196 O448 LDA UNIQU G PAIR OF INSTRUCTIONS 
| 2076 0448 8B8B 9 30 o850 2452 LDL 3F 
| 2077 2452 888 0 05 o0254 0659 LOX IF 7F 
D 2078 0659 88B 0 70 Quel 4709 7 ADD 61G69 ASM34 
2079 0850 BBB 0 25 2652 ousy 3 LDAA 95000 A0000 
2080 0454 888 0 05 0656 43a LOX 2F 
. ~ 2081 0458 BBB Y 30 0460 4760 LOL ASM35 
| 2062 0460 J8B 9 25 1405 0208 LDA TMPLL 
paws 2083 0208 888 0 37 0600 0201 SHL 0600 EXITS 
Doirz 2084 0254 888 09 01 221F 3695 1 ALF (CORE 
nase 2085 0656 BBB JY 22 2306 538¢ 2 ALF ONLY) 
ate 2066 4022 8BB 0 30 0824 1627 co0l2 LOL ADONX I48,ORDINARY CODE 
D iis. 2087 0824 888 0 25 4740 9242 LDA Xi COMPILE ADD NXT RA, 
GF ue 2088 0242 BBB 0 35 1408 oO408 ERS TMP11 
its 2049 040s 3BB 0 05 O00A 0412 LDX RA 
| Ree: 2090 0412 88B 0 07 HHHH 0215 IIR | HHH 
zo28 2091 0215 888 0 35 1405 0608 ERS TMPL1 
bene 2092 0608 88B 0 77 O60B O41) ATL 
20> ZENS 2093 0411 88B 9 25 1405 o8ne LOA TMPLL 
19 85852 2094 0808 888 0 37 0600 0617 SHL 0600 
i 025 ee 2095 06017 88B 0 32 0100 06214 SHR 0100 
7D F532 2096 = «0624 HBB Y 20 GOOR 0476 BUF RL AREX2 
6 5355 2097 O476 BBB J 70 4194 9097 °&8&AREX2 ADD TEMP? Yu9eCOMPILE OP 
PE: 2098 0097 888 9 30 1605 i408 LOL TMPl2 NOW -OMPILE THE ORIGINAL OP-CODE DESIKED FOK 
49 9255r | 
is Haas | 
ree to 
oP stone 
ee as: 
8 | p> eb 
6 Zuo ko 
Sue 6 
ook i 
a3ee 
HZ20 
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2099 
2190 
2101 
2102 
2103 
2104 
2105 
éiue 
2107 
2108 
2109 
2110 
2111 
2112 
2145 
2114 
e115 
2116 
21437 
2118 
2119 
2120 
212i 
2122 
2125 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2135 
2134 
2135 
2136 
21357 
2138 
2139 
2140 
21y1 
2142 
2145 
2144 
2145 
2146 
2147 
2148 





QO089 


0108 
0509 
0092 
0520 
9129 
9532 
0155 
0732 
O934 
9158 
0300 
9165 
0176 
9178 
1280 
0262 
1602 
128} 
1282 
1266 
1284 
0103 
O1lll 
0113 
0116 
0720 
0527 
0376 
0611 
1614 
1418 
0620 
1644 
0831 
9833 
0237 
1417 
1822 
1225 
9287 
Q293 


388 


B88 


BBB 
886 
uBB 
888 
386 
888 
388 
886 
BSB 
3BB 
38B 
3BB 
388 
888 
388 
888 
BAB 
3BB 
3BB 
B88 
386 
868 
38B 
o8B 
3868 
388 
386 
388 
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868 
38BB 
3BB 
388 
BAB 
888 
BBB 
BBB 
888 
8BB 
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20 


06 


06 
05 
30 


87 
30 
87 
25 
035 
20 
70 
32 
70 
29 
05 


24 
64 


- 


06 
35 
35 
35 
60 
Q5 
77 
0G 
Je 
35 
20 
OB 
05 
30 
25 
37 


35 
20 
70 
64 
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35 
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4770 


0092 


0092 
0054 
4568 
4277 
0532 
4605 
0732 
0934 
1900 
0360 
ooo 
0809 
0178 
0000 
0282 


9009 
no00 


0158 
474) 
4201 
4201 
4209 
0113 
0113 
0000 
0400 
4724 
4209 
0415 
0008 
0620 
o00c 
0400 
0833 
0435 
0415 
1419 
0000 
0287 
4741 
0296 


4351 


0092 


0092 
0992 
0520 
0129 
0732 
0155 
0158 
0336 
0000 
4303 
0165 
Q176 
QOOA 
1230 
4084 
1602 


1aR»a 


Be = & 


0158 
4568 
0103 
Q103 
Ol1L 
4O84 
O116 
0720 
0527 
0376 
0611 
1614 
Luta 
W445 
1624 
0831 
4303 
0237 
4417 
1822 
1285 
4303 
3293 
0296 


LSW 


L SWOF 
L SWON 


Lo000 


Loool 
L0002 
LOoO6 
1.0004 


0005 





STL 


CLX 


CLX 
LOX 
STL 
LOL 
TGR 
LOL 
TGR 
LOA 
CON 
LOL 
ADD 
Srik 
ANDO 
LOAL 
LOX 
BUF IL 


evTai 


7 es 


CLX 
ERS 
ERS 
ERS 
STA 
LOX 
ATL 
1IRJ 
SHR 
ERS 
BUF 
LIRI 
LDX 
LOL 
LDA 
SHL 
LOL 
ERS 
SUF 
AOD 
STAL 
LOL 
ERS 
CLL 


ComT 


iF 


lF 

81G04 
EXITe 
BIGSO 


81G60 
1F 


03190 


RX 
0800 


0000 
000u 


AAAL 
Wwe w 


ar 
XMH 
XO™M 
XOM 
TEMP 


0000 
0400 


TEMP2 
LLIST 
Ru 


RX 
o400 

XCO- 

LLIST 


ONE15 
0000 


XMri 





EXITS 


iF 


iF 
2F 
NOMAL. 


00000 
BRI 


INS 


BRI 


iL.Q905 
isk 4} 


THIS ARRAY OPERANDs: PLUS 4 IF INDEXING IS 
X SPECIFIEDe PUT NAME OF ARRAY AS COMMENT, 
oe DETAILS WILL SBE OMITTED SINCE ASM2-5 

AND ASM2.8 ARE ONLY FOR INTERNAL USE BY ASMe. 
te 160. LSW FOR ASSIGNING STATEMENT LABELS. 
X THIS ROUTINE HANDLES THE LOGIC FOR LABEL 
X ADDRESSES. THE PROBLEMS SOLVEN aRE THOSE 
X OF FORWARD REFERENCES AND OF POTENTIAL GO To 
X OUT OF OO LOOPS, 
T6OOeCHECK LABEL : 

CHECK THAT THE OPERAND WHICH IS SUPPOSED To 
BADSBSE a LABEL IS ACTUALLY A STATEMENT NUMBER, 
IF NOT: GIVE THE BAD LABELAALARM, 
OK 8 


G BAD LABEL 

I61leIN DO LOOP 

YEStIF we ARE IN A 00 LOOP GO TO STEPAI64 UNLESS 

F WE WANT THE ASSOLUTE LOCATION OF THE LABEL 

NQ 3 

I62ce¢ASSIGN 
IF THE LABEL IS UNDEFINED PICK LOCATIONe 
DEFINE ITe AND EXIT, IF THE LABEL IS TEMPO~ 
RARILY UNGEFINED (SEE SELOW? +06 STEP ié62e GN 
THE AUXILIARY WORD. IF THE LABEL IS ALREADY 
DEFINEDe SIMPLYWHEXIT, 


T6O4eTEMP ASSIGN 
IN 0O LOOP (AS OPPOSED TO DONT LOOP) WE MAKE 
A TEMPO-A~Y ASS&GNMENT FOR THE LOCATION TO GO 
TOeWHICH STORES RBi BEFORE GOING TO THE 
ACTUAL LOCATION. THE EXTRA INFORMATION iS 
KEPT IN LLISTe IN THE FORM 
SYMBOL TABLE ENTRY LLLLI SLAAAAXXXX 

AAAAS O2TTTT 
AAAA+1% XSSSSSLLLL 

WHERE XSSSSS IS THE OLD SYMBOL TABLE ENTRY» 
TTTT IS THE TEMPORARY ASSIGNMENT, 
IN THIS STEPeWE CREATE THE LLIST ENTRY IF 
NONE HAS BEEN MADE YET FOR THIS LABEL>+ OTHER 
WISe WE USE THE TEMPORARY ADDRESS. ALSO IF 
THE LABEL Had NO PERMANENT aDDRESS ANDO THE 
LABEL HaS NOW OCCURRED IN COLS l=5+ WE SET 
THE PERHANENT ADDRESS EQUAL TO THE TEMPORARY 
ADDRESS, REXIT. 

CODING DETAILS! 
ENTRANCE LSW IS USED FOR TRKE BRANCH ON 00 
LOOP, ENTRANCE LSWOF IS USED FOR GETTING 
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21u9 0296 88B UY 62 0899 1099 TEO LF ABSOLUTE LOCATIONS AS WITH A FORMAT OR 
3 (2150 0899 BBB » 30 4568 0920 LOL cxXITe ASSIGN STTATEMENT, RL IS THE EXIT LINE. 
F 2151 9920 BBB 4 25 0522 0324 LDA LABLA OUTPUT 1° O2AAAACOOO IN REGISTER Ac 
e 2152 0324 BBB 2 82 0727 1099 TES iF 
6 0 2153 9727 88B 2 29 9999 o4o) LDAi 9999 
9 2154 9401 88B »y 35 474) 3043 eRS  XMH 
ae 2155 3043 3BB ) 24 o000 1802 QUFL 900u 
a a120 s6ue gd Y OF YOUD 4002 $a Ou0Y LOX a 
bd 2157 1099 =JBB J 29 9999 1282 l LDA1L 9995 £0002 
$i 2158 9072 688 0 07 HHHH 0075 CASIN TIR HHH Ie I70¢ CASIN ASSIGNING CONSTANTS, 
*y 0 2159 0075 388 0 359 9000 2402 ERSI 0000 T7OeALREADY ASSIGNED 
> 2160 2402 888 9 31 1805 1805 CLL | YESsIF THE CONSTANT HAS ALREADY SEEN ASSIONEDs 
2161 1805 38B 0 62 1608 1808 TEQ iF OUTPUT THE ASSIGNMENT sHEXIT. 
2162 160g 888 0 65 4926 0628 STX EXITS NO8 
2165 0648 «=63BB 0 07 ~HHHH 1231 TIR  HHHH I7L¢PICK UNIQUE 
2164 1251 388 0 35 4196 O64a ERS UNIQy PICK THE NEXT LOCATION IN UNIQUE STORsGE FOK 
2165 0648 888 0 24 O000 2602 BUF1 0000 THIS CONSTANT 
2166 2602 88B 0 64 0000 2802 $TA1L 0000 
2167 2802 BBB 0 09 0001 2403 LDX1 0001 
2166 2403 888 9 65 4209 081); STX TEMP2 I72+COMPILE CONSTANT 
2169 0811 888 9 05 oO413 4494 LOX ASMG2 OUTPUT THE CONSTANT OUT“OF“SEQUENCE USING ASS 
~ 2170 0413 388B 905 4926 4927 LOX EXITS INCUQ EMBLER 4(190). HEXIT. 
= Zizi 1806 3886 0 20 4HOR 0660 1 BUF 81601 CODING DETAILS#RX IS EXIT LINE, RBI IS SYMBOL 
2172 0660 888 0 77 0660 900¢ ATL RX TABLE REFERENCE. OUTPUT IS OLAAAAQOCO IN RLeo 
2173 0173 3888 0 65 0175 0377 ASM} STX PAR2 ASML Ie Ile ASSEMBLR 1 
2174 0377 BBB 0 50 0379 Olas ASM11 STL EXIT? Loop THIS IS A MACRO“ASSEMELR 
2175 018) 88B 9 06 0184 0184 LOOP CLX WHICH IS GIVEN A LIST OF TwO<OIGIT INSTRUC-= 
2176 O164 BBB 9 32 0800 0099 SHR 0800 LOOP i TION NUMBERS. THESE NUMBERS aRE EITHER 
2177 0099 4BB 0 65 0288 0290 LOOP 1 STX TMP13 REFERENCES TO A LIST OF STANOARD INSTRUCTIONS 
2178 0290 BBB 0 37 0400 0297 SHL 0400 WHICH ARE PROCESSED BY ASSEMBLER 2+ OR THEY A 
2179 0297 8BB 0 70 1299 000A ADD RA ARE REFERENCES TO PSEUDO-INSTRUCTIONS NUMBER 
2180 1299 B8B 0 05 #1300 0717 “LOX 10000 1F +15 I2 THRU 1236 THE PSEUDO-INSTRUCTIONS ARE 
2181 0717 888 9 30 0519 O32) 1 LOL aF GIVEN HER IN THIS SECTION, THE PURPOSE OF 
2182 QO519 888 9 05 1340 0542 LOX [0040 LF ASML IS TO STEP THROUGH ALL 2=DIGIT 
2185 03421 888 0 87 0524 900¢ 2 TGR RX CODES» AS AN INTERPRETIVE ROUTINE. 
2la4 = 0524 BBB 0 25 000C 0128 LDA RX TASM2 "LOUP? REPRESENTS THE PLACE TO RETURN TO 
2185 0128 88B 0 30 0130 4350 TASM2 LOL IX ASM2 STEP TO THE NEXT 2=pIGIT CODE. 
2186 0150 8B8B 0 25 0268 0181 1X LOA TMP15 LOoP 
2187 1300 888 0 25 0175 0577 10000 LOA PAR2 
2188 0577 8BB v 32 9500 0185 SHR 0500 
2189 0185 888 v 35 0022 0379 ERS X9 EXIT? 
2190 i324 888 0 26 0379 0379 10024 CLA EXIT? 
2191 G LIST OF INSTRUCTIONS 
2192 1399 888 J 25 9901 9999 10099 LDA 9901 9999 G LODAL 
2193 1398 886 0 25 9902 9999 10098 LDA 9902 9999 $ LLDA2 
2194 1597 888 0 30 9901 9999 10097 LOL 9901 9999 G Lous 
2195 1396 88B 0 30 9902 9999 10096 LDL 9902 9999 G LoLe 
2196 1595 8B8B 0 60 9901 9999 10095 STA 9901 9999 G@ STAI 
2197 1394 8BB 9 50 9901 9999 10094 STL 9901 9999 6 $TLl 
2198 1393 BBB Vv 87 9908 9999 10093 TGR 9905 9999 G TGRS 


' WRITTEN PERMISSION OF SPERRY RAND CORPORATION, AND FURTHER AGREES TO SURRENDER - 


SAME TO SPERRY RAND CORPORATION, UPON DEMAND 


- 


~ 


Rand Uniac. 


PRINTED IN U.S.A. 
DIVISION OF SPERRY RAND CORPORATION 
PHILADELPHIA, PA. 


IN CONSIDERATION OF THE RECEIPT OF ‘THIS DOCUMENT, THE RECIPIENT AGREES NOT TO 


_ REPRODUCE, COPY, USE OR TRANSMIT THIS DOCUMENT AND/OR THE INFORMATION THEREIN CONTAINED, 
iN WHOLE OR IN PART, OR TO SUFFER SUCH ACTION BY OTHERS, FOR ANY PURPOSE, EXCEPT WITH THE 


’ WRITTEN PERMISSION OF SPERRY RAND CORPORATION, AND FURTHER AGREES TO SURRENDER 
x 


SAME TO SPERRY RAND CORPORATION, UPON DEMAND 


2199 
2200 
2201 
2202 
2205 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
221i 
2212 
2215 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
e221 
2222 
2225 
2224 
2225 
2226 
e227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 


1592 
1391 
1390 
1589 
1368 
1387 
1586 
L3nS 
L384 
1583 
1382 
156} 
1380 
1379 
13738 
1377 
1376 
1375 
1374 
1502 
0506 
0510 
150} 
0313 
0917 
05241 
gles 
1503 
0706 
1917 
0542 
O344 
13504 
0307 
2603 
2005 
3002 
1609 
2245 
O84 
0451 
2803 
2405 
3003 
0810 
1305 


1506 


BBE 
888 
B88 
888 
8BB 
B88 
B88 
399 
Bas 
888 
BBB 
BBB 
888 
888 
BBB 
888 
888 
888 
BBB 
BBB 
BBB 
888 
BBB 
@BB 
BBB 
888 
388 
BBB 
388 
388 
BBB 
3BB 
BBB 
BBB 
888 
BBB 
BBB 
886 
BBB 
BBB 
B88 
BBB 
3BB 
BBB 
BBB 
BBB 


388 


26 


9903 
9904 
9904 
9902 
0000 
9901 
9999 


HA ¢ 
erwa 


Q00B 
9905 
9903 
9901 
Q008 
9903 
9999 
9999 
0008 
8888 
9905 
0104 
1908 
0521 
0104 
0115 
0521 
0123 
0900 
0104 
O115 
0542 
o344 
9811 
HHHH 
0001 
2005 
0000 
0400 
2243 
0130 
HHHH 
0000 
2405 
0000 
0400 
0842 
0130 


0709 


9999 
9903 
9905 
9999 
9999 
9999 
9999 


oe A me 


weve 
9999 
9904 
9904 
9999 
9999 
9999 
OO0A 
9000 
9999 
9999 
9999 
0506 
Q510 
O313 
0313 
0917 
0130 
0181 
0000 
0706 
1917 
0130 
018] 
9000 
0307 
2603 
QO0A 
3002 
1609 
2245 
0846 
O451 
2803 
Q00A 
3003 
0810 
1303 
J283 


O709 


10092 
10091 
190090 
10089 
10088 
10087 
TQ0086 
1UVeS 
10084 
10083 
10082 
10081 
10080 
10079 
10078 
1Q0077 
10076 
10075 
10074 
10002 


1OO001 


10005 


TQO004 


19005 


19006 


TGR 
TEQ 
TEQ 
JMP 


TIR2 


MUL 
CLA 
$6 
SUB 
TGR 
TGR 
BUF 
RUF 
STA 
ADD 
UMP 
LDA 


TIR1 


LOL 
LDA 
LOL 
TEGO 
LDA 
LOL 
TEA 
LDA 
COM 
LDA 
LOL 
TES 
LDA 
CON 
IIR 


ERSS 


ADD 
LDA 
SHL 
LOL 
TEQ 
IIR 


ERSS 


ADD 
LDA 
SHL. 
TEQ 
LOx 


CLA 


9903 
9904 
9904 
990¢ 
0000 
9901 
9999 
99048 
0008 
9905 
9903 
9901 
0008 
9903 
9999 
9999 
00068 
8888 
9905 
PARI 
CoP 
2Fr 
PARI 
CuRs 
ar 


98090 
PAR | 
Cuas 
lF 


97981 
HHH 
0001 


0000 
0400 
Acc 
Ix 
HHH 
0000 


6000 
0400 
18 
Ix 


9999 
9903 
9905 
9999 
9999 
9999 
9999 
9999 
9999 
9904 
9904 
9999 
9999 
9999 
OVOA 
0900 
9999 
9999 
9999 


+08 SF 


oF 


Ix 


t AH 


tp FOE 


00000 


1X 
LOOP 
10000 


RA 


RA 


10003 
CLace 


KH OOO GMA AHO OOH OOO OH B® a 


— 








TGR3 

TEQ43 

TEQ4S 

JMP2 

TIRIO 

MUL 1 

CLA 

SUBI 

SUBRL 

TGR54 

TGR 54 

BUF IL 

BUFRL. 

STAS 

ADDOA 

JMP 

LOARL 

ITIRIN 

LDLo 

CHECK SPECIAL CaSES 

Tiel2eAND I3 ARE USED TO PROVICE SLIGHTLY 
BETTER CODE FOR CERTAIN BINARY OPERATORS 
OR FOR IF=STATEMENTS WITH LABELS EQUAL. BY 
CHANGING THE ORDER OF OPERATION.» A#LOOP. 


LDAg POL 


LOL .O0a2 PORL 

CHECK SUBSCRIPT 

WHEN A BINARY OPERATION BETWEEN TWO AKRAY 

VARIABLES IS USEDe A TEST IS MADE HERE TO 

SEE WHETHER EITHER SUBSCRIPT IS ALREADY IN 
THE ACCUMULATOR: FOR EFFICIENCY. ALOOP, 


CLEAR ACC 

IF THE ACCUMULATOR IN THE OBJECT PROGRAM 
IS IN USE+ COMPILE THE INSTRUCTION 

*STA TEMPe* ALOOP, 


Ine SET ACC AVAIL 
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ro) 


vs w 


Oo aU AN DO O 


rr tit rt ce rr ee ne, Sener 


2249 UTU9 3BB 2 60 2243 0150 STA acc 1X THE ACCUMULATOR IS SET AVAILABLE, SINCE THE 


2250 . X PREVIOUSLY COMPUTED RESULT 15 To BE UsEu 
2251 X NEXT, #LOOP, 

2252 1307 uBB v 0O 1300 1300 10007 JMP 10900 17. TRACE 

2255 TRCSW Eau 10007 NO? IF TRACE MODE IS NOT ONe\HEXIT FROM ASM]. 
2254 TRCOF EQU 10000 YESIOTHERWISE PREPARE THE INSTRUCTION LOX NaME 
2255 1655 386 4 25 4779) 188) TROON LDA CHOLO | PREPARATORY TO TRACINGe ALOOP. 

2256 186] BBB ) 30 O483 4260 Lok CONST 

2257 o463 88B 205 9285 9072 LOX CASIN 

2258 9265 98BB J 25 ooOoR 0489 LDA RL 

2259 0489 B8B 9 70 00545 2057 ADD BIGO4 

2260 2057 88B 9 05 2259 066) LOX 4F 

2261 0661 88B 2 30 0130 4709 LOL Ix ASM34 

2262 2259 88B O 32 14113 9135 i ALF TRACE 

22635 1508 88B 0 25 90104 1906 1Q008 LDA PARI I8e OP y2 

2264 1906 988 0 05 1389 oO191 LOX 10089 iF EITHER OF V2 NXT OR 

2265 X LOL V2°OP RL IS ComMPILED. 

2266 x "WE ARE WORKING ON THE BINARY OPERATION 
2267 x V1 OP V2) THENALOOP. 


2268 1309 888 
2269 2106 858 
2270 O777 #888 
2271 0385 6888 
2272 2306 86B 
2275 0977 888 
2274 O58S 888 
2275 0387 885 
2276 0191 388B 
2277 0710 88B 
2278 0713 8BB 
2279 2117 888 
2280 0149 885 
2281 9513 388 
2262 1177 888 


05 0104 2106 10009 0X PARI 19e PO V1 

25 0175 0777 LOA PAR2 NOTES Vi OP v2 EQUALS v2 PO v1 
32 0500 0385 SHR 0500 EITHER PO V1 NAT OR 

60 0104 2306 STA PARI LOL Vie PO RL IS COMPILED. sLOOP. 
65 0175 0977 STX PAR2 

32 0500 0585 SHR 0500 


Os YH22n7 mia mony 1c 


adil Sat Wa? & we 4? 


00 9901 9999 JMP 9901 9999 
30 1908 0710 1 LOL CoP 

82 0513 0713 TEQ 3F 

25 o000c 2117 LDA RX 

20 4247 0149 SUF #s8rG30 

20 1310 4350 LOL 10010 ASM2 
25 0175 1177 3 LDA PAR2 

35 4617 1619 ERS XO 


eceoccaocecccccocccceocecce cweceoceca 
N 
© 


2283 1619 #88B oo0c 0128 BUF RX TASM2 

2284 1310 888 0 25 0104 2506 10010 LDA PARI LF T100OP RL 

228% 1311 888 9 OS oO104 2706 10011 LOX PARI TllePO RL 

2286 2706 BBS 0 25 0175 1777 LOA PAR2 THIS PSEUDO OP IS USED TO SELEcT ONE OF TWO 
2287 1777 888 0 32 0500 0785 SHR 0500 ALTERNATIVES) WHICH ARE GIVEN AS PARAMETERS 
2288 0765 6886 0 60 0104 2906 STA PARI TO ASMi+ DEPENDING ON «HICH OPERAND IS IN 
2289 2906 68B 9 65 O175 2506 STX PAR2 LF Rt. aND WHICH IS IN RAs #LOOP, 

2290 2506 88B 9 35 0009 0181 1 ERS HS OUP 

2291 1312 48B 0 05 0514 90513 10012 LDX 36 11200P RL NxT 

2292 0514 88B 0 00 o00R 9999 JMP RL. 9999 COMPILE OP RL NXT, #LOUP, 

2293 1313 BBB 9 25 O175 1977 10013 LDA PAR2 T13eL IRS NXT SUB 

2294 1977 8BB uv 32 0400 0384 SHR 0400 THIS cOMPILES THE LINKAGE TO SUBROUTINESs 
2295 O384 888 30 01846 9188 LOL IF CALPK INCLUDING THE CONTROL INFORMATION TO BRING A 
2296 0188 BBB 9 50 0201 9004 CALPK STL EXITS | NEW SUBROUTINE IF THE SUBROUTINE HAS SOT 
2297 0004 88B 0 35 ou0s 2008 ERS Xu5 SEEN USED BEFORE. ALOOP, 

2298 2008 888 0 70 1u1O O00; AOD RA 
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Bd 
wo 


bh og ON 
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2299 1410 885 
230900 9816 BBB 
2301 0552 888 
2302 01860) «6338 
2303 0752 888 
23504 0572 B88 
2305 0375 986 
£20 Y¥Id oto 
2307 0556 #886 
2308 QO186 688B 
2309 2177 6888 
23410 0386 388 


0B QO000 0816 LIRL 0000 

34 1750 0852 LOL L woo00 

25 4628 0180 LDA MZERO 

24 #1750 0752 BUFL woo0d 

60 4770 572 STA COMT 

82 90201 0375 TEQ EXITS 

64 1750 0952 STAL wogod 

Ve VO00 V556 TiR2 OO00 

O05 6201 0204 LOX EXITS SUBDF 
25 O175 2177 1 LOA PAR2 

32 0600 0386 SHR 0600 

30 60130 4970 LOL Ix ASM36 


eaccocaccaocecceceococcocececcecseé 
fo 
ui 


2341 1314 888 4824 0126 1OG14 LDA DOVAR Tl4eSTORE INTO RA1 

2312 0126 88B 0 70 0328 000A ADD Ra COMPILE LIR1 OOOO NXTe WITH TRE DO VARIABLE 
2313 0328 8868 0 25 0001 O4o4y LDA O00] AS COMMENTe A#LOOP, 

2314 0404 888 09 60 4770 1323 STs ComT 1Ou23 

2315 13523 BBB 0 25 4828 0930 10023 LOA LIRL TAS32 

2316 0930 886 0 30 O130 4856 TAS32 LOL Ix ASM32 

2317 4528 88B 9 08 Oo000 0000 LIR’ LIRI oo00 0000 

2318 1315 886 0 25 4617 0719 10015 LDA xO 1\5eATL CONDITIONALLY 

2319 0719 888 0 35 4579 0331 ERS IWORD COMPILE ATL OO0GO NXT UNLESS THE PRECEDING 
2320 0331 BBB 0 30 4828 0380 LDL LIRI INSTRUCTION IN SEQUENCE WAS AN LIR3 (IN WHICH 
2321 0380 BBB O 82 O130 0183 TEQ IX CASE THE ANSWER IS ALREADY IN RL). HLOOP, 
2322 0183 8B8B 9 30 Q130 90319 LOL Ix ATL 

2323 LL60eSHIFT 

23au x fis AND T17 ARE USEM FOR SMIeT COMMANDS 
2325 X WHEN COMPILING CODE TO MULTIPLY BY POWER 
2326 X OF 10... #LOOP. 

2327 13138 8868 » 25 o175 2377 10018 LDA PAR2 TLSeUNARY OPERATOR 

2328 2377 8BB 0 37 OOO 0584 SHL 0400 DEPENDING ON THE UNARY OPERATOR: THE 

2329 0584 88B YV 70 QOOA 0389 ADD RA ~118 SUBROUTINE REFERENCE IS COMPILED USINGH L135. 
2330 0390 8868 9 OS O104 9507 R118 LOX PARI 

2331 0507 88B 0 32 0500 O315 SHR 0500 LF 

2332 03589 888 v 25 g104 0315 -118 LOA PARI IF 

2333 0315 888 09 31 O18 O118 1 CLL 

2334 0118 @88B 9 82 O130 9721 TEQ IX 

2335 0721 888 0 60 O75 1313  S§$TA PAR2 1Oy13 

2336 i3i9 888 9 05 41121 4084 10019 LOX FARNL, 119eGO TO 3Fe2t 

2337 1121 888 0 60 0323 0125 STA THREF USED FOR MAKING FORWARD REFERENCES AT 

2338 0125 88B 0 30 0927 4736 LOL TOBSw GOTO THE REGINNING OF Do LOOPS AND IN INPUT} 
2339 0927 688 0 05 0329 4084 TOESW LOX LF FARNL OUTPUT LISTS.» #ALOOP, 

2340 0140 888 0 OS 0329 4084 Toe LOX IF FARNL 

2341 0329 8BB uv 60 0831 0733 1 STA Twos 2F 

2342 0742 BBB 0 25 O844 0733 TOBiO LOA NINEF oF 

2343 0733 BBB 0 60 4RBBaO 90130 2 STA WNXLOC IX 

2544 4320 888 0 05 o722 4084 10020 Lux F ARN. 120.eTGR OF 3F 

2345 O722 38B 0 32 O00 0529 She O400 THIS 15 FOR THE TRANSFER INSTRUCTION FOR 
2346 0529 BBB 0 35 4724 0576 ERS xc EXITING FROM DO LOOPS. ALOOP, 

2347 0576 B88 U 60 oO844 0146 STA NINEF 

2348 0146 8BB vu 37 O00 0153 SHL 0400 


S eeeneeadlicncaemsoeemeesadilltansemmmmemiineninememnteiae ee nn nn cement ieeenere nant rene re 


2349 3453 388 » 20 0355 0357 BUF 31687 
z 2350 2357 8BB 6 05 «0859 0161 Lux 92000 Q90u01 
E 2351 31401 38B » 30 G163 4570 LOL AS43 
é ae 2352 91603 8BB LJ 25 0323 0925 LOA THREF 
A 9 a 2355 J925 388 »Y 350 0130 9932 Luk Ix FIUNA 
: 2 2354 9952 BBB J 60 4880 4686 FILivx STA \xLOC FILuP 
: os 2355 1321 BBB 5 25 Q544 5346 10021 LOA NINEF I2,eNINEF 00 
7 8 £956 0246 BBB v <0 4408 49560 BUF 471QU4 THIS T> SIMrLT Usep TY riann Tmid ad & us 
a 53 2357 0560 88B 2 60 O544 9130 STA NINEF 1x RATHER THAN A OONT LOOP. 
ba 2358 1322 BBB 0 OS 0724 4084 10022 Dx FARNL 122e8uUF iF 
3 2359 0724 gap 9 60 0323 1125 STA THREF USED aT BEGINNING OF FUNCTION OR SUBROUTINE. 
; 2360 1125 88B 9 32 oOu400 1132 SHR O400 HLOOP. 
2361 1132 888 9 35 4724 O776 ERS XC 
2362 0776 88B 9 20 1178 0580 BUF BIG2z0 
2363 0580 BBB 0 05 9362 0784 LOx® 90200 90010 
2364 Q784 BBB 0 30 0130 453709 LOL Ix ASM3 
2365 Be ARITHMETIC OPERATORS 
2366 X THIS SECTION CONTAINS THE GENERATORS FOR 
2367 X ARITHMETIC OPERATORS, ENTERED FROM STEP Ge 
2368 X OR FROM STEP G10, AN ODD NUMBERED STEP HERE 
2369 X INDICATES AN ENTRY FROm STEP G6 (WHEN SYMBOL 
2570 X IS FIRST SENSED) AND AN EVEN NUMBERED STEP 
2371 X IN THIS SECTION INDICATES AN ENTRY FROM 
2572 | X  G1O ( OFF THE OPERATOR STACK ). 
2373 0373 888 1 29 Q000 604 ARITH LDA3 90000 G ARITH SUBROUTINE 
2374 9604 gaa 9 32 Q400 1411 SHR = QuOO G  MECINES WHETHER WE HAVE FLI“FLT: FLT<FI1Xe 
2375 141) 88B 0 35 0613 0615 ERS KONS G FIX=FLT+¢ OR FIX“FIX ON BINARY OPERATORS 
2376 0615 38B8B 0 77 0615 1618 ATL G AND ALSO DETERMINES TYPE OF RESULT>s 
2377 1618 3888 0 70 OOOA 2423 ADD RA 
2378 2423 88B 0 70 OOOR 0828 ADD RL 
2379 0828 888 0 77 O828 1631 ATL 
2380 1631 68BB i 29 9999 060; LDA3S 9999 
2381 0601 8B8B 0 32 O400 2408 SHR 0400 
2382 2408 BBB 0 35 0613 0815 ERS KON3 
0 2385 0815 BBB 0 70 oom 0820 ADD RL 
: 2384 0820 888 0 70 2022 0004 ADD RA 
a 2385 2022 8BB 09 00 4000 4000 JMP BoodYy 
: 2386 4000 88B 0 0G 0000 0654 80000 IIRL 0000 2F 
< 2387 4001 888 0 0G 0001 vu65y 30001 IIRL 000) 2F 
i 2388 4002 BBB 0 0G 0000 0654 80002 IIRL 0000 2F 
2389 4003 88B 0 0G 0002 654 BOQ0O3 IIRL O002 2F 
: 2390 4004 BB O 0G 0003 2608 30004 IIRL 0003 LF 
: » 2391 4005 88B 0 0G 0003 2608 80005 IIR’ 0003 iF 
: 2392 4006 6BB 0 0G QO000 0654 30006 IIRL 0000 2F 
: 2393 4007 8BB 09 0G 0003 2408 80007 IIRL 0003 LF 
: 2394 4008 868BB 9 0G 0003 0612 80008 IIRL 0003 
ao 2395 0612 888 0 05 4756 658 LOX 81G02 ur 
7p: =~ 2396 2008 8BB 9 05 44uOoR 0658 1 LOX 81601 nF 
K 2397 9654 8BB Uv 06 0658 04658 2 CLX uF 
E 2398 9658 888 0 65 0860 000A 4 STX OTYPE RA 
& 
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2399 0199 888 005 0801 0804 RINSB LOX csuUB LF G  B8INSB GENERATES REFERENCE TO BINARY 
a a2 -24y0 0800 BB 0 05 1908 Oao4 8 INOP LOX coP LF G  SUBROUTINEs BINOP IS FOR BINARY MACHINE OP, 
2401 0804 g88 0 30 4215 1617 1 LOL OPX BINAL G RBI IS THE Q@-TABLE ENTRY FOR THE ++ CASE, 
S 2402 1617 BBB 0 50 1819 0821 BINAL STL &SAC 
St 2403 0821 888 9 65 O104 0707 STX PARL 
> Ne 2404 0707 BBB 1 29 0000 i4ou LOAS 0000 GS PICK UP THE PROPER y TASLE ENTRY == 
5a 2405 1404 BBB 0 05 QOOA 2808 LOX RA G SEE THE J=TABLE+ VJO0O0O THRU YOOlS. 
zu 2456 230s GGG 3355 4247 vYeNg ERS IGou 
a 4 2407 0649 BBB J 32 OFOO 0062 SHR OF OO 
$m 2408 0062 88B 0 35 oO022 1824 ERS X9 
— §2 2409 1824 8B8B 0 70 O00A 0629 ADD RA 
dD §: 2410 0629 8BB 0 77 0629 0232 ATL. 
A 2411 0232 BBB U 25 0234 0436 LDA g000U Q000H 
| | 2432 0436 BBB 1 39 9999 i401 ERS3 9999 
D 2413 1401 888 0 70 o008 0606 ADD AL 
2414 0606 8BB 0 70 OQOOA 1611 ADD RA -5M 
2415 1612 888 0 30 1814 O042 &BM LDL ANSL BME 
2416 1611 6888 0 77 1611 2014 -BM ATL 
2417 2014 BBB U 37 0300 1620 SHL =—-0300 
| 2418 1620 888 0 70 2222 000, ADD Ra 
D 2419 2222 8BB UY 0G 0000 o0a29 IIlsi 0000 
2420 0829 888 1 0G 9999 1233 IIR3 9999 
| 242i 1233 888 0 25 COOR 0437 LOA RL 
D 2422 0437 BBB O35 4617 9069 ERS Xo 
2423 0069 888 0 32 0500 0077 SHR 0500 
Pp 2424 0077 388 0 70 COOA o4ap ADD Ra 
D 2428 0482 888 0 70 oooC 0487 ADD RX 
2426 0467 88B 0 70 0689 QO0A AOD RA 
2427 0689 HBB U 25 1700 0302 LOA yoood 
D 2428 0302 BBB 909 0000 1604 LOX 0000 7F 
2429 1604 8B8B 9 30 0806 0173 7 LOL ASM1 
2430 0806 8BB 0 70 0860 0463 ADD OTYPE SACC 
D 2431 o403 468B 070 4“o74 1als SACC ADD sIG10 “SAC G MARK COMPUTER RESULT AS IN ACCUMULATOR 
2432 i8is B86 1 64 OOOO Lady =SAC STA3 0000 G UNLESS TYPE IS 9 (FOR STORE OPERATORS). 
egug 2433 1804 88B 1 0G 0000 3008 IIR3 0000 
Deir: 2434 3008 88B 0 60 2243 1819 STA ACC &SAC 
nZse 2435 1814 BBB 1 0G 0000 2018 ANSL IIR3 0000 G ANSL MEANS LA L OP R 
yous 2436 2018 888 9 30 2243 2445 LOL acc 
Deis e 2437 2445 888 9 82 1048 1248 TEQ DOCKS 
GE ye 2438 1048 8868 0 31 0651 065) CLL 
» bot: 2439 0651 48B 0 50 2243 1248 STL ACC DOCKS 
| ees 2440 1248 BBB 1 0G 9999 4215 DOCKS IIRS 9999 OPX 
2528 2441 1841 886 9 30 4215 9067 UNOP LOL OPX iF G@ UNOP ENTRIES ARE STANDARD OPTIONS FOR 
os 2442 0442 88B 0 25 4301 0653 UNOPS LDA #81G90 G  UNARY OPERATORS 
ZENS 2443 9653 BBB 0 60 0860 0067 STA OTYPE 1F 
Bo85% 2444 0067 888 1 29 0000 2004 1 LOA3 9000 UNOP 1 
025 i 2445 2645 8BB » 35 0009 1813 NOP2 ERS HS iF 
eat 2446, 2064 BBB 09 50 1819 lati UNOP 1 STL a AC iF 
web eS 2447 1811 @6BB Y 65 0104 0907 1 STX paR) 
Eg80z 2448 0907 888 vy 32 0500 515 SHR = 050 
rhe &o 
rsuU>on 
625065 
SE oa” 
ad 
pets 
Beek 
86256 
=ui5 Of 
ake 
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24u9 
(2450 
2451 
2452 
2453 
2454 
2455 
225% 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
24g1 
2492 
24a) 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 


JS1L5 
1415 
181i? 
414 
0909 


9715 
ie re) 
wt & 


4105 
1909 
0915 


oF14 
4103 
O919 
1921 
2404 
1809 
i412 
0265 
0094 
O497 
2604 
14916 
2019 
160] 
0813 
1616 
18l2 
2604 
2027 
4102 
3004 
2227 
4106 
4100 
1101 
1993 
1102 
9304 
0305 
1103 
1919 
212) 
2605 
2011 
2414 
2418 
24<1 


388 
BBE 
388 
BBB 
B88 


BBB 2 


2 ome Py, 
un . 


BOB . 
BBB 
BBB 


68B 
888 
BBB 
888 
BBB 
888 
BBB 
BBB 
368 
886 
868 
B88 
888 
BBB 
886 
BBB 
888 
386 
b8B 
BBB 
68B 
386 
888 
388 
388 
888 
888 
886 
888 
3865 
38. 
368 
3BB 
88B 
38B 
$88 
858 


cw cece 


0613 
1817 
0000 
19607 
000¢ 


2317 
USLO 


1907 


oo0c 
4140 


1052 
4417 
1921 
0001 
1406 
1412 
4213 
4392 
0497 
0000 
0900 
1416 
9999 
0900 
1616 
2218 
0000 
44u2u 
9000 
0000 
4424 
0000 
1100 
1000 
1903 
0500 
0304 
0500 
1ai4 
4u17 
2121 
0001 
2009 
2214 
1alé 
2214 
9999 


1415 
QOOA 
1604 
Q9309 
O714 


4428 
4214 


1909 


0914 
4140 


4211 
Q919 
QOOA 
2404 
1809 
1812 
0265 
0094 
1812 
2604 
1416 
2019 
1601 
0813 
\8i2 
4426 
2804 
2027 
4106 
3004 
2227 
4215 
0373 
0199 
0305 
Q000 
0305 
9000 
4514 
1919 
Q00A 
2605 
201) 
2414 
2418 
242i 
LROY 


§1Giy~ 
&L j 
SIGNS 
ale 


=L2 
BIN@ 


UN@ 


BINS 

AQOOO 
AoO0Oo]1 
AQ002 


SINER 
AQ0O0S 


~ADU 


ERS 
sUD 
Load 
LOA 
AUD 


LOX 
L¥L 


LOA 
ADD 
JMP 


LOL 
LOA 
ADD 
LDL 
LDA 
TE 
LOL 
LDA 
TEQ 
LOAS 
SHL 
ATL 
LDAS 
SHL 
TEQ 
LOL 
LDAS 
ADD 
STAS 
LDAS 
ADO 
STAS 
LIRL 
LIRI 
LDA 
CON 
LDA 
CON 
LDL 
LDA 
ADD 
LOA 
LOL 
TEO 
LOL 
TEQ 
LDAS 


KONS 


000u 
TWOSS 
RX 


OUN@ 
O3ITN™ 


TWO9S 
RX 
NORMA 


OBING 
RaTOR 


0001 
OYF% 


OHOL YD 
BIG7U 


000U 
0904 


9999 
0900 


COLON 
0000 
LITS 
0000 
9000 
LYTS 
0000 
A0Q00 
Q0000 


07050 


06050 
ANSL 
RATOR 


0001 
OARAx 
ar 
OARA* 


2F 
9994 


a OP 4 
RA 


LF 


jF 


iF 
REMRT 


BINS 


OPX 

ARITH 
BINSS 
BINER 
00000 
BINER 
00000 
ALARM 


RA 


~ADOD 





G SELECT yeTABLE ENTRY. 
Sle MINUS SIGN 
CHECK IF THE PRECEDING ITEM waS AN OPERAND OR 
X RIGHT PARENTHESIS. 7F SO+ A BINARY MINUS 
BINIOPER.TOR IS SUBSTITUTED AND WE GO TO STEPHG7, 
UNS TF WOT? A UNARY MINUS OPERATOR IS SUSST;TUTED 
X AND wE GO TO STEPHG20. 
83, PLUS SIGN. 
CHECK AS IN STEP 81] FOR UNARY OR BINAKY, 
BINSON BINARY PLUS+ CHANGE TO THE BINARY AvD 
X OPERATOR AND GO TO STEPAG7, 
UN? A UNARY PLUS IS IGNOREOe GO TOAG1. 
84, SUBTRACTION OP 
IF: CHECK IF THE OPERATOR IN OHOLD 15 A RIGHT 
: PARENTHESIS AND IF THE TOP OF THE OPERATOR 
STACK IS LEFT PARENTHESIS AFTER aN IF. IN 
THIS CASE ANO IF THE SIGNS OF THE ToP Two 
OPERANDS ARE EQUAL, SUBTRACTION IS NOT 
CARRIED OUTs THE IF OPERATOR 1S REMOVED 
FROM THE STACK AND WE GO TO STEP #B27.6 
SUBtOTHERWISE NEGATE THE TOP OPERAND AND 
CHANGE TO BINARY PLUS+ STEPS#Ba, 


Boe NEGATION OP 
CHANGE SIGN OF TOP OPERAND, EXIT TORGIO. 


Bue ADDITION OP 

FLFXCHECK TYPES OF OPERANDS. IF T.sEY ARE MIAED 
GIVE AN ERRORAAL ARM, 

G 1&A ERR 

FLFLIF GOTH ARE FLOATING POINT+GO TORBSUe 

g A&I ERR 

FXFXIF FIXED POINT, CHECK IF WE ARE ADDING A 
CONSTANT IN AN ARRAY SUSSCRIPTe IF NOT, 

GO TOSBS9. HOWEVER IF WE ARE sDDING O + V 
THE -ODITION IS SUPPRESSED, 

ARR IN THE ARRAY SUBSCRIPT CASE: RECORD IF THE 
CONSTANT IS GREATER THAN +16 MULTIPLY THE 
CONSTANT BY THE APPROPRIATE OIMENSION 
AND aQD THIS TO THE BASE. EXIT TOoH#GIO. 


PRINTED IN U.S.A. 
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2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 


18U] 
0853 
1056 
0856 
2805 
2001 
3005 
2846 
1648 
2852 
22i4 
1606 
2409 
1413 
26<3 
2422 
2025 
1806 
2609 
2006 
2809 
2614 
2017 
162] 
204 
1047 
2950 
2401 
2026 
1850 
Q275 
2601 
2406 


Olid 
1913 
2517 
2120 
41i2 
Liug 
1105 
2107 
11v6 
2108 
1107 
266 
1853 


4101 
4113 


38B 
BBB 
888 
388 
385 
688 
383 
ae 
B8B 
888 
88B 
888 
G85 
888 
386 
868 
88B 
886 
886 
868 
38B 
888 
888 
88B 
888 
BSB 
68B 
388 
888 
868 
8868 
588 
858 


38B 
8565 
86B 
d8B 
8BB 
868 
388 
3868 
686 
366 
888 
388 
B88 


388 


a6B . 


Ke Or ee Ce CoOocooc oOCcrocecocr OF Or kre eK OC SG 


©G CCrccecceceoce 


30 
Bea 
08 
29 
64 
0G 
30 
a2 
0G 
60 
29 
06 
32 
37 
70 
07 
39 
70 
20 
26 
75 
36 
20 
77 
25 
87 
25 
20 
$0 
85 
25 


60 


30 
30 
82 
07 
08 


as 
1 
25 
08 
29 
30 
82 


Q5 
07 


1051 
0856 
1030 
0000 
9999 
0000 
2243 


$2518 
ewe 


9999 
2243 
0000 
2409 
0100 
0700 
OOOA 
HHHH 
0000 
2609 
0001 
2809 
000c 
2017 
0008 
1621 
4095 
1850 
9999 
4424 
9999 
9998 
9999 
oo0ocr 
9999 


1915 
1915 
1120 
1054 
1104 


1004 


2107 
1310 
2108 
0500 
0000 
1051 
0836 


2103 
HHHH 


9853 
1056 
Q800 
2805 
2001 
3005 
2845 
eT) 
2852 
4215 
1606 
2409 
1413 
2623 
2421 
2025 
1806 
OO0A 
2006 
2809 
2614 
2017 
162] 
2024 
1047 
2050 
2401 
2926 
1859 
0275 
2601 
2406 
1814 


4O44 
2517 
2120 
4710 
Q373 
0199 
0305 
0205 
9305 
0000 
2606 
1853 
1856 


4428 
9516 


ANSR 


& ADD 


SIGN* 


&FNC 1 
RIN* 

Ao004 
AoQO0O5 


AQ0U6 


40007 


SIGNS 
SIGN. 


LOL 
TEO 
LIRI 
LDAS 
STA3 
IIRS 
LOL 
TEY 
IIRS 
STA 
LOAas 
CLX 
SHR 
SHL 
ADD 
IIR 
ERSS3 
ADO 
LDL 
CLA 
SUB 
CAA 
BUF 
ATL 
LDA 
TGR 
LDAZ 
RUF 
$TA2 
MUL 2 
LOAZ 
AUD 
STA2 
HHH 
LOL 
LDL 
TEQ 
Ii 
LIRI 
LIRR 
LDA 
“ON 
LOA 
CON 
LOAS 
LOL 
TEQ 


Lix 
TIR 


CONO 
ANSR 
Q0050 
0000 
9999 
0000 
AcC 


9999 
ACC 
0000 


0100 
0700 


HHH 
0000 


0001 
RX 
RL 
KON2 
9999 
LiTts 
9999 
9998 
9999 


RX - 
9999 


O»« 

SGN** 
ToO04 
A0004 
Q0004 


41131 


08050 
0000 

CONO 

ANSR 


OLPRN 
HHH 


BINOP 


WULK OS 


OPX 


~ ADD 


RA 


1F 


ANSL 
SCAN 


&FNC 1 
DIvT2 


ARITH 


BINSS 
BINER 
00905 
BINER 
00000 


KON*E 
~OP3 


Cc) ANSR MEANS R EQUALS bu OP KR 


BLLeASTERISK 
CHECK FOR SECOND ASTERISK ANDO CHANGE [0 A 
MULTIPLY OR POWER OPERATOR! GO TOAG7.+ 


BL2eMULTIPLY 

FLFLIF FLOAT=FLOAT+# GO TOFBI0. 
FLFXIF MIXEC TYPE GIVE ERROR#ALARM,. 
G FLOaTING SUBSCRIPT OR I*A ERROR 


G A&I ERR 
FXFXIF FIX=FIXe SET O#V EQUAL TO 0, IN OTHER 
CASES+ WE MAY CHECK FOR POSSIBILITY OF 
ADD RA AND/OR SHIFT COMMNDS TO IMPLEMENT 
X MULTIPLICATION+ ELSE GO TO#B9O. 
BISeLEFT PARENTHESIS 





O 


e549 9516 888 1 35 Q000 0004 ERS2 OQ00 RA PUT A LEFT PARENTHESIS UPERATOR ON THe STACK» 
nm eZ 2550 4114 88B i 25 0Q000 2806 SIGNS LOA2 oO00U STEP#320. WHEN IT COMES OFF THE STACK IT WILL 
Da: 2551 2806 BBB ¥ 35 4724 2226 ERE xe NECESSARILY BE FORCED OFF BY ITS MATCHING 
< o. 2552 X RIGHT PARENTHESIS ano IN THIS CaSE 
“ 5a 2555 X WE WILL SIMPLY GO To STEP Gl. 
= > o ¢ 2554 2226 8BB 4» 37 Q400 OO00A SHL 0400 RA 
a za 2555 4115 3888 5) 08 1108 9373 SIGN/ LIR1 Aggos ARITH 8,8eOIVISION ; 
t zo 255% hivo SSS 5 O28 sgh 15S AGLUS aR ed WOUSS Oty334 PUPAGT VE EARORF ALARM IF RIAEO TVYPCs OTHERS ISE 
29 §:5 2557 = 1109 BBB OQ 25 «0311 9305 AQ009 LOA BINER OTH3GO TOHB90. 
: $a 2558 0341 g88 0 16 OS00 9000 CON 16050 00000 G I/A ERR 
a ‘3? 2559 11190 6888 9 25 0312 0305 A010 LOA | BINER 
De: 2560 0312 8BB 9 15 0800 0000 CON 15050 00900 G A/T ERR 
‘ 2561 1111 g88 0 OB 1012 0199 A0OLL LIRL Qool2 BINSB 7 
| | 2562 1120 888 9 05 0922 4428 SGN#*x LOX OBN** ~OP3 
, 2565 4116 gap 9 08 1112 0373 Noe LIRI aoola ARITH B20.EXPONENTIATION 
2564 1112 88B 09 08 1016 0199 AQO12 LIRL @0016 alys8 FXFLGIVE ERRORAALARM IF FIX**#FLOAT 
| 2565 1113 888 0 25 2115 0305 Aoo13 LDA BINER *K2STE RAISING TO THE SECOND POWER?+ GO TO THE 
D 2566 2115 888 2 17 0800 2000 CON 17050 00000 G lI#**a ERR 
2567 1114 888 6 OB 1020 2717 A004 LIR! Q0020 iF UNARY SQUARING OPERATORISTEPAHULO. 
= 2568 1115 886 0 08 1025 2717 Aoo15 LIR1 Qoo025 1F OTHSOTHERWISE GO TOHB9Q. 
> 2569 2717 @BB 1 29 O000 3006 1 LDA3 0000 
2570 3006 BBB 0 30 3009 2411 LOL CoN2 
2571 2411 88B 0 82 2814 0199 | TEQ SQUAR BINSS 
D 2572 4162 38B 0 0B 1038 0965 BLAND LIR1 Q0038 LF B22eAND+OR 
- 2573 4163 8B8B 9 0B 1t042 0965 BOR LIRL gooued iF FOR SOOLEAN AND+OR WE SET THE TYPE OF THE 
. 2574 0965 §8B 0 05 4756 1610 1 LOX BrGo2 RESULT TO UNSPECIFIED? THEN GO TOAB&E9> 
Dd 2575 1610 B8B 0 65 0860 0800 STX OTYPE BINOP 
2576 4107 888 09 30 2109 4044 WOIF LOL SCAN B25eWOoRD IF 
| 2577 2109 BBB OC 30 4221 9523 LOL LPREN CHECK THAT A LEFT PARENTHESIS FOLLOWS: ELSE 
: ] 2578 0523 88B 9 82 0326 0526 TEO MLP GIVE AN ERROR ALARM, PUT A SPECIAL IF-LEFT= 
2579 9326 8BB 005 1406 4428 LOX OIF% “OP3 PARENTHESIS ON THE STACKeAT STEPHG20. 
2580 4108 8868 1 0G o001 0512 IF% IIR3 0001 82601 F=<_EFT=<PAREN 
3 2581 0512 6BB UY 30 1051 2053 LOL CONO AT THIS POINT WE HVE PROCESSED THE EXPRESSION 
| 2582 2053 8B8B 1 54 Q000 2218 STL3 0000 COLON IN AN IF=STATEMENT AND MUST COMPARE IT 
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D 5irz 25384 2622 88B 0 25 2224 2426 LOA IFMO PUT ON TOP OF THE OPERAND STACK, 
nZe 2585 2426 88B 160 oOn00 1810 STA2 0000 EXPL B27eF INISH IF<STATEMENT 
ote 2586 1810 BBB 0 30 4140 2642 EXPL LDL NORMX EXPLS SET UP IF MODE, THEN PROCESS THE STATEMENT 
Dees. 2587 0642 88B 0 25 O24uH 1246 EXPLB LDA LEXP NUMBERSs CHECK THAT THERE ARE EXACTLY THREE? 
att 2588 1246 8B8B 0 60 4206 0008 STA LESW RL. THEN CHOOSE THE 2£5T CODING SEQUENCE BASED 
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6 MISSING SUBSCRIPT 


S MISSING LEFT PARENTHESI> 


S MISSING RIGHT PARENTHESIS 
B39eGENERATE MACHINE OP 
GENERATE CODING FOR THE MACHINE OPS 
AOD» SUBtERS+e OR BUF e USING ASSEMBLER 
1 (ROUTINE I) + AND USING ONE OF 16 TABLE 
ENTRIES DEPENDING ON WHETHER TKE OPERANUS 
ARE QO SIMPLE VARIABLES+ ETC. 
1 IN THE ACCUMULATOR 
2 INQEX REGISTER } 
3 ARRAY VARTABLES 
EXIT TORG1O. 
9OeGENERATE LIBRARY REF 
GENERATE A REFERENCE TO A BINARY LIBRARY 
SUBROUTINEe THERE ARE & CASES DEPENDING 
ON WHETHER EITHER OPERAND IS NEGATED+ AND 
DEPENDING WHICH OPERAND WAS MOST CONVENIENT 
TO PLACE IN REGISTER Le THESE CASES ARE 
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2675 


2076 ONE WHICH SENDS CONTROL TO STEP A20 WHEN 


THE MATCHING RIGHT PARENTHESIS COMES ALONG, 


2o49 X SELECTED BY REFERENCING A TASLE ENTRY 
of Z 2650 X AS IN STEP 639 aND GOING TO ASSEMBLER 1 
< 2651 , . x (ROUTINE I), EXIT ToAnGIO,. 
° 2652 4217 88B J 30 2219 4ou4 ARRAY LOL SCAN Ae PROCESSING oF ARRAY SUBSCRIPTS 
go 2655 2219 8BB ) 30 4221 2823 LOL LPREN WHEN » OIMENSIONED VARIABLE IS SENT FROM THE 
ee: 2654 2823 gBB 3 82 2826 2220 TED UASW SCANNER+ ENTRY 1S MaDE TO Ale «a COMMA 
z a 2655 2826 8868 0 07 1050 408 Tir ToOdY olvtt RETWEEs SUBSCRIPTS CAUSES ENTRY TO AlQe 
EO <050 42140 o60 ) Uf AHHH 2113 TARA® TIR- MHA Aje IS LEFT PAREN NEXT 
é 2657 2115 3868 1 39 Q000 2812 FRS3 0000 NO? SCAN NEXT ITEM, IF IT IS NOT «A LEFT 
$i 2658 2812 886 160 0001 3012 STA2 0001 PARENTHESIS+#GO TO THE UNOIMENSIONEO ARRAY 
"6 2659 3012 688 2 25 4016 3o0l1A8 LOA LIT! MSWTCHs THIS SWITCH IS NORMALLY SET TO THE 
2 <660 30ig 8868 160 goo2 1813 STA2 a0002 "MISSING LEFT PARENTHESIS® ALARM WHICH 
2661 1813 888 0 25 1815 2217 LDA FOR9S INSERTS A LEFT PARENTHESIS INTO THE 
2662 | X STATEMENT ANO RETURNS HERE. 
2665 2217 8868 1 60 0003 2013 STA2 0005 YES3 
2664 2013 88B 0 30 2615 2417 LDL =ARAMO A2e SET ARRAY MODE 
2665 2417 888 0 0S 2009 4235 LOX OARA% MDOP 
<606 X THE MODE STACK RECEIVES FOUR NEW ENTRIES! 
2667 X 2 0U0O ARRAY MODE (A10 FOR COMMA, 
2668 x MISSING RIGHT PAREN FOR $) 
2669 X 2 9999 BASE CALCULATION 
2670 X 2 9998 CURRENT PRODUCT OF DIMENSIONS 
2673 X 2 9997 REFERENCE TO DIMENSION LIST 
2672 Ade EMIT ® O + 
2673 X FOR CONVENIENCEs THE CHARACTER ( O + ARE 
2674 X INSERTED, THIS LEFT PARENTHESIS IS A SPECIAL 
x 
x 
26077 X EXIT TOKG1L. 
2678 0478 886 1 29 O000 2213 INDEX LOA3 0000 ALOsCHECK INDEX. 
2679 2213 BBB Y 30 4431 1833 LOL 81G21 IF THIS IS THE FIRST SUSSCRIPT AND ITS 
2080 1855 888 9 82 0636 000¢ TEQ RX CURRENT VALUE IS RB1 CODEr INDEXING I5 SET 
2081 0656 6BB l 30 9999 2413 LOL2 9999 UP AND THE SUSSCRIPT IS REPLACED BY ZERO, 
2662 2413 888 0 25 2815 2617 LDA# 04997 00000 THIS OCCURS ONLY IF THE FIRST SUBSCRIPT IS 
9 26835 2617 88B 9 87 QOO0C 2420 TGR RX DOVAR & CONSTANT+ WHERE THE CONSTANT IS 
6 2684 2420 888 0 25 3023 2225 LDA xmCc GREATER THAN ~30* AND IF WE ARE NOT C.uLLING 
mA 2685 2225 BBB 1 35 9996 0398 © ERS2 9996 A FUNCTION. 
. 2686 0598 888 9 30 1600 2613 LOL FCMD THE IMPORTANT ASSUMPTION IS MaDE HARE THAT 
: 2687 2613 88B Y 82 O00C 28le TEQ RX NEITHER UNIQUE NOR COMMON STOR-GE WILL ge 
a 2688 2816 BBB i 25 9999 2813 LDA2 9999 ASSIGNED TO CORE LOCATIONS BQOO0 ~ BO2%. 
: 2689 2813 BBB uv 20 3015 2817 RUFA 00000 04000 WITH THIS CONVENTION: THE NUMBER OF SAD 
: 2690 2817 BBB 1 60 9999 3913 STA2 9999 ARRAYS(SEE SECTION a24) IS GREATLY REDUCED. 
z 2691 3013 888 YU 25 1051 2453 LDA CONO 
- 2692 2453 88B 164 o000 o00c STA3 0000 RX 
: 2693 0493 BBB 1 25 9999 3016 PNSUB LDA2 9999 ALLePOTENTIAL NEGATIVITY 
8 2694 3016 688B 0 37 0900 1828 SHL 0900 IF ANY CONSTANTS GREATER THAN 1 OCCURRED 
: 2695 1828 388B 09 70 Q00A 2033 ADD Ra ~PN NURING THE LAST SUBSCRIPT ALONG WITH 
F 2696 2054 BBB 4 30 1051 2653 &PN LOL CoNO ANYTHING OTHER THAN DOVARs THIS ARRAY 13 
2697 2653 88B 1 29 9000 3017 LOA3 0000 MARKED AS HAVING A POTENTIALLY NEGATIVE 
i 2698 3017 BBB 2 82 2420 2820 TEQ eF SUBSCRIPT. 
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INTO THE CHARACTERS +N(U4+ THIS LEFT 
PARENTHESIS IS LIKE A MULTIPLICATION SYMBOL» 
ONLY THE CHECK aT STEP All IS MADE FIRST, 
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AZSeEQUIVALENCE UECL, . 

YES:7F wE ARE IN AN EQUIVALENCE DECLARATION: 
EXIy TO THE EQUIVALENCE ROUTINE#SE3S0~ 

NO8 

A2Z4eWHAT TYPE ARRAY 
THERE ARE FOUR KINDS OF ARRAYS: AND wE OECIDE 
NOW WHAT KINO THIS 1S¢e 

PARSYE THe ARRAY IS PARAMETRICse GO TOHA2Z7T+ 

SADICONSTANTS IN THE SUBSCRIPT ARE ADOED TO THE 
BASE, IF THE BASE HAS THEREBY SECOME NEGATIVE 
OR TOO LARGE OR IF THE SUBSCRIPT IS 
POTENTIALLY NEGATIVE, THIS IS CALLED A 5AD 
ARRAY, AND WE GO TOHAZ6> 
EXAMPLES A(JU+2) + WHERE J MAY BE NEGATIVE 

HAPSIF THE SUBSCRIPT IS NOW ZEROe THIS INDICATES 
THAT IT WAS ALL CONSTANT EXCEPT PERHAPS FOR 
INDEX REGISTER MODIFICATION: SO GO TORAZB. 

ORD: ELSE IT IS AN ORDINARY ARRAY. 


G CHECK IF BASE LESS THAN -30 


A2Z25eCODE SSLLLLIOOO 
FOR AN ORDINARY ARRAY: THE CODE 3SLLLLIV00 
IS SET UPeWHERE S 15 THE STORAGE TYPE, 
LubLic 1S THE BASE LOCATION: AND I %135 0 OR 4 
FOR INDEXING, TOHA29e 

A26-eCODE 28BB8BS000 
FOR A SAD ARRAY+THE CODE 2888a85000 IS SET 
UPe WHERE § IS THE STORAGE TYPE, 8888 IS 
THE BASE LOCATION PLUS 50000¢ PLUS 40000 IF 
INDEXINGe TOMALGe 

Az7eCODE 1 BBBEBPPPP 
FOR A PARAMETRIC ARRAY THE CODE 186B8sPPPP 
1S SET UPs WHERE 88888 IS THE BASE LOCATION 
PLUS 50000 PLUS 40000 IF INDEXING?+ AND 


d ‘ 


Ptarel 
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2799 2629 6888 0 37 O500 0637 SAL 0500 . PPPP 1S THE LOCATION OF THE PARAMETER» TO#ACS 
2800 0657 88B 0 35 4740 2042 ERS Xi 

2801 2042 8B8B 170 9999 2829 ADD2 9999 

2802 2829 888 0 35 474) 644 ERS XMH 

2893 0644 g88 9 20 OOOR 1899 BUF RL GF 

2804 1899 88B 0 06 0502 9502 9 CLX 6F 

2805 2257 688 a 07 HHHH 18606 5 IIR HHH A2BeCODE AS SIMPLE VAR, 

abut 4oo0 a@O5 4 355 95995 S029 EnRSée 999% THIS ARKAY IS CHANGED TV LOOK ALMOST LIKE 
2807 3029 88B 9 20 4209 2061 SUF TEMPe A SIMPLE VARIABLE, 

2808 206) 3886 1 64 0000 0630 STA3 0000 

2809 0650 8BB 1 25 9999 Q830 LDA2Z 9999 

2810 0850 6888 0 37 0200 0835 SHL 0200 

2841 0855 6888 0 35 1237 439 ERS X49 

2612 0439 8BB 09 20 2041 O84y4 BUF B8IGO9 

2813 0844 888 905 O00A 0502 LOX RA oF 

2814 0502 38B 0 60 4209 O511 § STA TEMPe A29eMOVE SUBSCRIPT 

2815 0511 88B 0 65 4Hu2e0 4122 STX TEMPS THE STATUS OF THINGS I8S CHANGED TOs 

2816 ; SADS$ PAR $ HAP t ORD 
2817 lilc2 8868 9 29 OO0O1 1230 LOAL oo0O1 OPERAND STACK ENTRYS 

2818 STAAAAQOOO 3TAAAAD0OO OTAAAAQOOO STAAAAQDLOY 
2819 LOCATIONS AAAA AND AAAA+138 


2821 28a88BS000 138BBRBBPPPP 09071000000 S35LLLLI000 
2622 LOCATIONS CCCc AND CCCC413 
26235 SUSSCRIPT SUBSCRIPT OSLLLL&#e* SUBSCRIPT 


2824 ZZZZZNNNNN 2Z2ZZ22NNNNN ZZ222NNNNN 22ZZZZNNNNN 
Ro ¥0a YUSEF tor ion See ep PE sqrt = me dae —- ae 


x 
X 
1 x 
2820 | vs oooodo0Occce ON00000CCCC YsOTOOCCCC O00U0NCCCC 
x 
X 
x 
x 


ee Gm MEW ETEQED Leto A Li Le Le 2) 


2825 1250 )6=— B88 39 37 O400 1657_ SHL. O40N WHERE ZZZZZNNNNN IS THE ARRAY NAME? AND 
2826 1657 88B 2 35 OO43 1846 ERS XM T INDICATES THE TYPE, EXIT TORGI. 
2627 1846 88B 29 70 2248 9O00A ADD RA 
2828 2248 888 J 25 QO001 1630 LDA 0001 

2829 1650 6888 1 09 goood 1830 LOx3 o00”0 

2830 1850 BBB 2 30 0632 0634 LOL INS2 
2831 9652 388B 1 0G oO000 1236 IIRS 0000 

2832 12564 888 9 30 2243 2046 LOL acc 

2833 20464 88B 0 82 Oau9 1049 TEQ iF 
28 34 0849 86868 5 25 (0851 1854 LOA ARAS 

2835 1854 888 9 60 2243 1049 STA acc iF 
2836 1049 BBB 8 25 4209 2261 1 LDA TEMPe2 

2637 2261 6888 0 05 4420 0272 LOX TEMPS 
2838 0272 BBB J 30 0074 0634 LOL INS2 
2839 0074 888 3 25 o00C 0878 LDA RX 

2840 9878 8B8B 2. 70 4301 O5804 ADD BIG90 “AnK2 
264) 0654 BBB » OB 0851 4445 INS2 LIRi ARAS INS 
2842 0505 88B v 30 4247 Y349 RAR2 LOL. BYG30 \F 
2843 0504 8BB 2 31 O349 9349 wARZ *LL. iF 

2644 0349 BBB 1 0G 9999 5353 1 Tie3 9999 

2845 2353 88B 1 29 0000 2030 LDAS O000 

2846 2930 sBB 09 35 YTHO 2242 FRS Al 

2847 2242 888 » 20 o0ooR8 226 BUF RL 

2648 2246 888 9 20 O851 2054 BUF ARAS 
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oh FE ON OD 0 


2849 2094 88B 1 64 QO0O 2230 STAS 0000 


2850 2250 888 1 07 9996 4140 11P2 9996 NORMA 

2651 ARAS FQU MRP 

2852 7 U. UNARY OPERATORS AND SPECIAL GENERATORS 

2855 4117 3B8B 9 350 2519 252) SIGNA LOL = LOLON iF COMP;.a— wITH THE INTRODUCTORY REMARKS OF 
2854 X SECTION a, ODD-NUMPERED STEPS INDICATE ENTRY 
2855 | X FROM Gée EVEN NUMSERED: FROM G10. 


we ey Ce ie. eR aK “en. 


e040 EU¥G  OG6 9U 4OL¥Y 4232) #ourr LVL LOLON LF Ule Equals SIGN 

2557 2521 88B 9 50 4118 9170 t STL BINSH THIS 1S 4 SWITCH WHICH IS SET IN SEVERAL 
2858 0170 gag 8 0S 0972 4428 | LOX OpIN# -OP3 D0! PLacESeIF THIS EQUaLS SIGN OCCURS IN a vO 
2859 4118 88B 0 67 4118 4118 BIN3#A HLT * STATEMENT#GO TOKD3, IF IT IS IN AN INPUT 
2860 2549 388 0 OB lille 0373 LDLON LIRL ad0lg ARITH I/ZO8OUTPUT STATEMENT eGO TOKRW17, OTHERWISE THIS 
2861 1116 888 0 OB 1732 2719 A016 LIRL yoo32 LF OTH3I1S A PLAIN OLD EQUALS SIGN+AND WE PUT A 
2862 1118 888 9 05 1920 1922 Aoo18 LOx FIXA oF REPLACEMENT OPERATOR ON THE STACKe #G20. 
26650 1117) gBB YU :OS «2919 1922 A001? LOX FLOTA 2F U2. REPLACEMENT SETUP. 

2864 1119 88B vy 08 1732 2719 AQ019 Liri 0032 iF IN A MULTIPLE ASSIGNMENT STATEMENT WE ENTER 
2665 2719 886 29 9999 2430 1 LOAS 9999 AT STEP U2 THE FIRS7 REPLACEMENT OPERATOR, 
2866 2430 8868 9 70 4301 2254 ADD 81690 “INRA STEP U4 SUCCEEDING TIMES. CHECK TYPES+ AND 
2867 2254 88B 9 O07 4092 2657 mINRA IIR 4092 IF gIFFERENCE IS PRESENT PUT OUT THE CODE TO 
2868 2657 3BB 0 30 4417? 0269 LDL RaTOR FIX OR FLOAT. IF THE TYPES ARE THE SAME, 
2869 0269 885 0 82 0472 2255 TEQ & INRA DECIDE WHETHER To PUT THE RIGHT=-HAND SIDE IN 
2870 0472 88B 9 30 1300 0702 LOL TRCOF REGISTER A OR NOT. REGISTER L IS SELECTED IF 
2871 0702 BBB 9 25 1307 2309 LOA TRCSW THERE IS A MULTIPLE ASSIGNMENT STATEMENT, OR 
2872 2309 388 0 82 0912 2255 TEQ & INRA IF THE LEFT-HAND PART IS NOT a SIMPLE VARIABL 
2875 0912 888 0 30 1914 0363 LOL GET OR IF TRACE MODE IS ON, ; 

2874 1914 888 OG 9999 0318 IIRS 9999 THE CODING TO PUT THe RIGHT=HAND SIDE+ #ITH 


tee ee me baad FT oe it te 


ecce ceceeecceccerrccceccoceccoraccoccocer cece oot Cct 
© 
. *) 


2875 0318 888 25 1395 0397 LDA 10095 TRUE SIGNe INTO THE SELECTED RIGISTER? IS 
2876 03597 688 30 0599 4350 LOL 8 7F ASM2 ACCOMPLISHED SY SELECTING A 

2877 2255 BBB 0000 2630 RINRA LOX3 o000U TABLE ENTRY AND ACTIVATING ASMI(ROUTINE I). 
2878 2650 3888 32 0100 O834 SHR 0100 

2879 0854 886 70 QOOA 0639 ADO RA ~ Re 

2880 0640 3886 08 1728 12uy &RE LIRL yoo2s 

2861 1244 888 30 24u4u6 OUD LL. UNOPS 

2882 2446 888 30 2448 0319 LOL SF ATi. 

28385 1922 68B 08 1724 #0639 2 LIR’ yoo24 ~RE 

2884 0659 88 30 2448 O42 ~RE LOL 3F UNOPS 

2885 2448 888 0 9999 2454 3 LIR3S 9999 LOLOF 

2886 2454 888 29 0000 2830 LOLOF LDAS 0000 U4e REPLACEMENT OPERATOR 

2887 2850 8B 7O 4603 2856 ADD 68YG60 ~EEE PUT OUT CODING TO STORE 4 OR L IN THE 

2888 2857 388 30 2856 4799 &EEE LOL FEE EEE APPROPRIATE LOCATION ANU POSSIBLY TO 

2889 2856 888 30 0599 3030 “EEE LOL 7F ASMTR CAUSE TRACING: USING ASSEMBLER 1 (ROUTINE I). 
2890 0599 388 30 2454 2256 7 LOL LOLOF REMOVE OPERAND FROM STACK, EXiT TOAGIO, 
2891 2256 8B 50 4118 9070 STL S8INtA 

2892 0070 6888 0G 9999 4215 IIRS 9999 OPX 

2893 3030 9886 O05 1232 234 ASMTR LOX TRACE 

2894 1234 888 25 1636 173 LOA CTRC ASM 1 

2895 4155 888 05 1920 2122 FIXF LOX FYXA ULOeUNARY OPERATORS 

2896 2122 888 31 1325 1325 CLL IN THE CASE OF FIXsEXPrsINeCOStTANVATANoLNG 
en es ae 25 4408 Y760 LDA 81G0) SQRT+CHECK THAT THE ARGUMENT IS FLOATING 


60 Q860 1262 STA OTYPE 2F POINT, SQUARING: THe tNOT* OPERATORe AND 


HMland 
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a ee 


2899 4425 886 9 05 1127 0729 EXPF LUX EXP 1F FLOAT PLUS THE ONES MENTIONED EARLIER ARE 
2900 41420 3888 U9 05 2322 0729 SINF LOX SIN iF THAN CALLED FROM THE LIBRARY SUBROUTINES, 
2901 4iey 688 0 05 0723 0729  COSF LOX Cos iF USIWG A TABLE ENTRY AND ACTIVATING ASSEMBLER 
2902 4122 888 0 05 0924 0729 TANF LOX TAN LF le THERE ARE TWO CASES+DEPENDING WHETHER THE 
2903 4123 88B 905 1925 9729 ATANF LOX ATAN iF ARGUMENT IS NEGATED OR NOT, IN THE CASE OF 
2904 4124 BBB 0 0S 0726 90729 LNF LOX LN 1F ABS: A SPECIAL TABLE ENTRY FOR AN OPEN 

2905 4119 3888 9 05 2721 0729 SORTF LOX SaQRT iF SUBROUTINE IS USED, 

23% Ceo 886 4 Si 1352 1352 t CLL 

2907 1332 888 9 50 0860 1262 STL OTYPE 2F | 

2908 1262 8688 1 29 0000 263); 2 L.DAS 9000 

2909 2651 888 09 35 4THO 2442 ERS Xl 

2910 2442 BBB U0 62 2646 2846 TEQ IF 2F 

29il 4154 6B8B 0 05 2919 2921 FLOTF LOX FLOTA 

2912 292} 888 0 31 11246 j124 CLL 

2913 1124 888 i 29 Q000 283; LDA3S 9g000 

2914 283) BBB 0 35 4740 2642 ERS Xj 

2915 2642 68B 0 82 4140 3046 TEQ NORMX SF 

2916 416) #886 0 05 0863 1365 BCOMP LOX COMPL 

2917 1365 888 0 30 4756 3046 LOL BrGd2 SF 

2918 3046 BBB U 50 0860 2646 S STL OTYPé iF 

2919 2646 888 0 OB 1724 4841 1 LIRI Yoo2s UNOP 

2920 2846 885 0 25 264R 0336 2 LOA NOMAL 

2921 2648 8BB U 34 0500 9000 CON 34050 00000 G F(I) ERR 

2922 4126 8BB 0 08 1736 0929 ABSF LIRL YoOO36 1F 

2923 2814 988B i 0G 9999 303; SQUAR IIR3 9999 

2924 3051 38B 0 09 QOOu 14632 Lox! go04 oF 

2925 4141 3BB 905 O38u3 O145 WOPOZ LOX PAUSF 3F 

2926 4142 888 005 o744 O145 WOSTP LOX STOPF 3F 

2927 0148 68B 1 07 O001 9O549 3 IIR2 0901 

2928 0549 8BB 2 30 O351 9553 LGL POZMOD 

2929 0553 8868 1 50 0000 1632 STL2 90000 2F 

2930 1130 @B8B i OB 4190 41133 POZS LIR3S RANO BOOLS 

2931 1632 88B 29 O08 1724 0929 2 LIRL yoo24 LF 

2932 0929 888 1 29 oO000 1832 i LDA3 9000 

2933 1652 886 9 35 4740 2842 ERS Xj 

2934 2842 886 09 60 0860 1841 STA OTYPE UNOP 

2935 4127 #88B 0 30 1129 O73, OPO LOL if G THIS OPERATOR IS PERMANENTLY ON THE BOTTOM 
2936 0751 3888 0 25 1333 4S5l1yu LDA ALARM G OF THE OPERATOR STACK+IS ACTIVE ONLY ON AN 
2937 13553 BBB UY 18 OO022 0025 CON 18002 20025 G EXTRA RIGHT PARENTHESIS 

2938 1149 @88B 0 05 4093 4428 \ LUX QOOPO -OP3 

2939 NOs FQU &IFL 

2940 | POZs EQU NOs 

2941 0336 888 9 30 4i4o 4514 NOMAL LOL NORMX ALARM 

2942 1133 3888 107 9999 4ii4 B800LS IIR2 9999 SIGNS 

2945 0543 888 0 30 4417 9169 NOS LOL RATOR ULZeENO OF STATEMENT 

2944 01609 9888 0 07 4092 1372 IIR 4og2 AT THE END OF MOST STATEMENTS WE CHECK THAT 
2945 1372 88B 0 82 0875 1629 TEQ 4F MRP THE OPERATOR AND OPERANO STACKS ARE EMPTY» 
2946 0575 38B 9 25 1051 2654 u LOA CONO ELS GIVE THE ERROR +MISSING RIGHT PARENTHE- 
2947 2654 888 1 64 0000 2032 STA3 000u SYS* OR MISSING OPERAND!' OR tEXTRA OPERAND!. 
2948 2032 888 106 oO000 1876 IIR3S oo0dd 
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2949 1436 388 v 30 1238 9040 LOL CRAND 
2950 30490 3886 4 82 1644 1844 TEO OLF 
2951 4844 38BB 0 87 j64u7 {847 TGe oer 
2952 1847 388 106 OOO! 1851 Ties 9901 
2953 1951 SBB 5 25 2854 2456 LOA 3F 
2954 2854 888 5 32 2890 90000 COs 3228) 00000 G MISSING OPERANO 
2955 1647 388 1 0G 9999 205} 2 TiR3 9999 
<950 <u21 965 uy 2> 35054 2456 LUA aF 
2957 5054 8B8B 2 18 0028 90000 CON 18902 80900 G EXTRA OPERAND 
2958 2456 888 0 30 O875 4514 5 LOL 4B ALARM 
2959 1644 888 205 2047 1249 1 LOX IF 

- 2960 1249 88B 2 0B 0851 2455 LIR1 ARAS 
2961 2455 888 0 30 O8543 4229 LOL NOs REM 
2962 2047 BBB J 60 2243 4140 1 STA acc NORMX 
2963 1238 888 9 00 1190 9000 CRAND JMP RAND 0900 
2964 0363 gap 9 SO 1819 2232 GET STL @SaAc G SUBROUTINE TO SRING OPEKAND INTO REGISTER a 
2965 2232 88B i109 g000 2432 LOx3 9000 
2966 2452 6888 9 32 QO100 2036 SHR = 9100 
2967 20356 888 070 QooA 3041 ADD RA “GET 
2968 3042 888 0 08 1728 2247 &GET LIRL Jyoo2s 1F 
2969 3041 888 0 0B i724 2247 =-GET LIRL yoo24 LF 
2970 2247 8688 0 25 4740 0292 i LDA Xi 
2971 0292 888 139 Q000 2632 ERS3 0000 
2972 2652 888 0 60 0860 1862 STA OTYPE 
2973 1862 geB 0 32 0900 0274 SHR 0900 
2974 0274 888 0 06 2645 265 CLX UNOP2 
2975 413) 868B 0 30 1933 0642 WDGO LOL EXPLA Ul3e WORD *GO8 
2976 1953 88B 9 30 0335 4044 LOL SCAN SET LABEL CONTEXT ONe AND SCAN THE NEAT ITEM 
2977 0335 8BB ¥Y 30 422) 0573 LOL UPREN (ROUTINE S)e THE WORD TO IS IGNORED BY 
2978 0573 BBB 0 82 1176 1776 TEQ WF N& FORTRAN. IF THE NEXT ITEM IS A LABELs PUT IT 
2979 1776 888 0 30 4974 2832 LOL BYG1O IN aA BLANK ADORESS OF THE PRECEDING 
29480 2832 38868 J 87 1235 1635 TGR 2F INSTRUCTION OR ELSE CREATE A UMP INSTRUCTION® 
2981 1255 8BB 0 30 1837 0089 LOL L Sw THEN GO TOHGI. 
2982 1837 8B8B 0 30 4yHuo 4736 LOL NORMX GOTO Vt IF THe NEXT ITEM IS A VARIABLE» COMPILE cODE 
2965-1655 BBB 1 64 0001 3032 2 STA3 0001 To STORE RBI IF WE ARE IN A D0 ..00P) THEN 
2964 3032 BBB Y 25 1634 2236 LDA OOTAG CODE TO JUMP TO THE VARIABLE ITSELF. AU2) 
2985 2236 886 9 31 0839 0839 CLL ($ FINALLY IF IT IS a LEFT PaRENTKESIS?+ 
2986 0839 888 9 82 2044 2244 TEQ 2F 
2987 2044 BBB 0 25 4826 1276 LDA OOVAR 
2988 1276 3BB 1 64 0002 2433 STA3 0002 
2989 2453 88B 0 25 1835 2037 LDA 3F 
2990 1835 88B 0 88 7989 9000 CON 88798 90000 G IIRL STAS YMP2 
2991 2244 B88B 0 25 2447 2437 2 LDA 3F 
2992 2447 888 6 89 0000 9000 CON 89000 00000 G  JMP2 
2995 2037 8BB 0 30 1239 4377 3 LOL ASML 
2994 1259 888 1 0G 0001 2444 IIR3 000} WE SET UP GO MODE, COMPILE EACr LABEL 
2995 2444 BBB 9 26 2647 2647 CLA OUT OF SEQUENCE» THEN WHEN THe RIGHT 
2996 2647 BBB Y 30 4151 4686 LOL wOOIM FILUP PARENTHESIS COMES ALONG WE RETURN TO#G)] TO 
2997 1176 38B 1 07 0002 9780 1 IIR2 9002 PRO:ESS THE EXPRESSION. 
2998 9980 BBB v 0S 0582 49297 LOX INCUG 


ww - 
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29G9 
30900 
5001 
20G2 
3003 
3004 
3005 
2UuU6 
3007 
2008 
3009 
3010 
2041 
5012 
2013 
3044 
2015 
2046 
3017 
3018 
2019 
2020 
2021 
2022 
3025 
3024 
2025 
3026 
3027 
2028 
2029 
3030 
O31 
2032 
2035 
2034 
3035 
2036 
5037 
3038 
3039 
2040 
3041 
3042 
2043 
2044 
2045 
3046 
2047 
2048 


0562 
2633 
2055 
1659 
2833 
2255 
O49] 
base 
1778 
0762 
3033 
2435 
23647 
246) 
0663 
1207 
2508 
4128 
1330 
1876 
0479 
1834 
2436 
Q240 
26044 
2234 


0682 
O4s4 
0488 
4150 
1932 
Lisa 
0736 
Oo148 
0753 
0555 
0959 
Qg9gio0 
1912 
07 16 
0518 
4151 
0755 
1359 
2844 
3047 
2454 
26034 
2636 
244) 


vas 
388 
88B 
586 
888 
886 
BSB 
TJ) 
588 
868 
8B8B 
3686 
388 
368 
38B 
5868 
BBB 
BBB 
888 
BBB 
386 
388 
388 
388 
388 
BAB 
38B 
BBS 
B88 
888 
868 
3BB 
868 
388 
388 
388 
388 
BBB 
388 
888 
3B8 
388 
888 
388 
3688 
388 
BBB 
BBB 
388 
38B 


ce cr &§ OCF ke Ore Cer Cor OO C Ot GCe ew Oo Cer OcCOoCc eo ccc cc ee oOo ewe! CO Oec Coc eo coe 


50 


30 


30 
05 
30 
05 
30 
30 
0G 
29 
30 
35 


05 
25 
20 
05 
30 
30 
82 
30 


25 
20 
25 
60 
30 
07 
0G 
30 


75 
25 
70 
30 
06 
05 
30 
0G 
30 
0G 
30 
07 
50 


359 
60 
20 
OB 
07 


9999 
2035 
2237 
224) 
2235 
0089 
4140 
926 
9999 
0001 
2435 
0043 
4209 
0663 
Q00R 
4756 
4926 
1330 
1074 
2235 
2235 
2436 
1638 
2644 
9999 
4RAD 
O4s4 
9998 
9999 
1932 
1134 
0736 
4196 
0550 
Q555 
9999 
0108 
1912 
0002 
0§18 
9998 
1353 
0001 
0000 
HHHH 
0000 
0001 
2636 
0000 
0007 


2633 
0642 
1639 
4238 
0642 
0494 
1142 
1778 
0782 
3033 
000c 
2847 
246} 
4927 
1267 
2308 
44oy 
4ou4 
1876 
0479 
2818 
0363 
0240 
0377 
2234 
OAAR9 


wi he 


4736 
o488 
4114 
0642 
4428 
9000 
o1us 
O753 
4357 
0959 
0910 
1142 
0716 
3030 
4215 
0755 
1359 
4140 
3047 
2u34y 
2634 
QO0A 
2444 
3044 


STL2 
LOL 
LOL 
LOX 
LOL. 
LOX 
LOL 
STL 
IIRS 
LDA 
LOL 
ERS 
STA 
LOX 


LDA 


LOL 
LOX 
LOL. 
LDL 
TEQ 
LOL 
LOL 
LOAS 
LOL 
LOA2 
STA 
LOL 
IiReé 
IIP3 
LOL 
LDX 
SUB 
LDA 
ADD 
LDL. 
TIRS 
LOX 
LOL 
IIRS 
LOL 
TIRS 
LDL 
TIRe2 
STL2 
IIR 
ERSS 
STA2 
RUF 
LIRL 
IIR 


9999 


GOMD 
960% 
lf 
LSW 
NORMA 
EXITS 
9999 
0001 


XM 
TEMPe 


Rv 
BIGoOe 
EXITS 
’ 

1B 

if 
T7877 


9999 
NXLOC 


9998 


9999 | 


ASS2 
UNTQU 
BIG29 


9999 
i.SWOF 


0002 


9998 
Di MMD 
0001 
09000 
HHH 
9000 
0001 


000u 
000« 


EXPL 


MDOP 1 
EXPL3 


GOSUa 


RX 


INCUGQ 


ASM42 
SCAN 


MCAL. 
GET 
60000 
ASM11 


GOTO 


SIGNS 

EXPL 

~OP5 
0900 


ASMS3 


GOSUS 


ASHTR 
OPX 

INSMO 
ISMD1 
NORMX 


RA 


YIGeEND “OMPUTED GO- 

G ADDUA JMP UZACC 
COMPILE CODE TO GET THE EXPRESSION WITH 
TRUE SIGN IS REGISTER At THEN 
ADD NXT RAe JMP TO THE TAALE. 


Ul7ewWORD "ASSIGN?! - 
SET LABEL CONTEXT+AND PLACE THE ASSIGN 
OPERATOR ON THE STACKse THE WORD "TO! 
IS IGNOREO BY FORTRANe | 

Ul8e ASSIGN OP 
CREATE A CONSTANT FOR THE ABSOLUTE LOCATION 
OF THE LABEL (USE 162), THEN INTERCHANGE 
OERANDOS AND TREAT ANALOGOUS TO REPLACEMENT 
AY STEPHU2. 


U2le* DIMENSION? 
WHEN A DIMENSION DECLARATION APPEARS THe REST 
OF THE COMPILER IS RIGGED UP TO HANDLE THIS 
STATEMENT PROPERLY BY STTING UP DIMENSION 
MODE. WHEN A NAME COMES ALONG, A SECOND MODE 
IS SET UP+ AND THIS MODE CREATES THE 
TABLE ENTRIES FOR AN ARRAY VARIABLE. 
AT THE ENDe EXIT TO#G1]. NO STORAGE 
ASSIGNMENTS ARE MADE YETs THEY ARE MADE 
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oO BR Oa N 


wr i se ee erties renrtninee Sinem ee, 


2049 30484 3868 
2050 2655 6688 
3051 9902 BBB 
2052 23854 988 
2055 1910 388B 
2054 2313 388 
3055 3054 388 
2356 i836 636 
3057 2076 #388 
3958 0260 3888 
3059 2655 888 
3060 1839 §6©8BB 
5061 1649 #388 
2062 2855 388 
3063 2459 388 
2064 o863 886 
2065 0465 8B 
2066 2835 688 
3067 2058 6888 
2068 3055 886 
2069 2059 888 


70 4600 2655 ADD MEML WHEN THE ARRAY IS FIRST REFERENCED. 
60 4600 0902 STA MEML 

60 9002 2834 $TAZ O002 

70 1907 1910 ADD TwOcs 

77° «1910 2313 ATI 

29 0000 3034 LOAL g00u 

05 oO00A 1438 LOX Re» 

33> 4724 2076 ExS X- 

20 o008 9280 SUF RL 

64 9000 2635 STAL QO0dU 

25 o00C 1839 LOA RX 

2QO 4247 1649 BUF BIG30 

35. 4201 2855 ERS xXOM 

O53 000a 2459 LOX RA 

25 0008 0863 LDA AL 

70 0465 QO0O0A ADD RA 
25 0000 2835 ERS 0000 G 270 + €RS & STX 
O7 OOO! 2038 IIR 0001 

60 9003 3035 STAZ 0003 

30 2437 2039 LOL 8 OLMMD 

05 2641 4235 LOX ODIM% MDOP 


Cr Cce Ccor oer C§Cr Sr Cr Ccocce coc arc eoerecocececc ccc Cec Getic 
~ 
cS 


3070 OIMS EQU MRP 
2071 0471 9888 O77 HHHH O474 OrMs TIR HHAH 
3072 = 0474 BBB 1 39 «0000 2836 — ERS3 9000 | 
| 5073 2856 38B 05 QOOA O440 LDX RA 
5074 04490 388 2auag OOooA ADD RA 
3075 2848 886 90 0001 3036 LDL 0001 
3076 3056 35B 07 QO0O1 2239 TIR 0001 
2077 22539 B86 70 4600 3055 AOD MEML 
2078 3055 #86 60 4600 190602 STA MEML 
2079 1902 3888 70 O704 99004 ADD RA 
3080 QO704 BBB 65 0000 2637 STX 0000 
3081 2657 8BB 85 9999 2276 MUL2 9999 
3082 2276 9888 22 O400 1283 SHR 0400 
3085 1283 9885 65 9999 2837 STX2 9999 Dime 
2084 4159 3d38B O07 WHHH 1342 DIM IIR HHHH 
3085 1542 888 39 9000 3037 ERS3 0000 
3086 3057 8B 70 2439 00a ADD RA 
37087 2439 888 390 0001 2238 LOL 0001 
2088 2258 888 85 9999 2476 MUL2 9999 
3089 2476 3888 32 Q800 0687 SHR 0800 
3090 0687 #88B 25 9997 0799 LDA2 9997 
3091 9799 88B 9 37 0200 2438 SHL 0200 
3092 2438 9888 32 0600 3048 SHR 0600 
3093 3048 3888 77 «#3048 = 225) ATL 
~O94 2251 888 25 $998 2600 LOA2 999% 
2095 2600 8B 79 2638 00a ADD RA 
3096 2638 58B 5O 0000 2838 STL 0000 
2097 2858 888 O07 9996 1849 IIR2 9996 
9098 1849 986 O7 FFFF 2656 IIR FFFF 


w 


Hearne 
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apheaan @ © 


3099 
3100 
3101 
2102 
3103 
3104 
3105 
3iu6 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
3444 
3115 
3116 
3417 
3118 
3119 
3120 
3121 


glee 


31zZ5 
3124 
3125 
3126 
2127 
3128 
3129 
3130 
2131 
3132 
3133 
3134 
3135 
2136 
2137 
2138 
2139 
3140 
3141 
3142 
3145 
3144 
2145 
3146 
2147 
2148 


2656 
2639 
2639 
284) 
2857 
2822 
4152 
u7o6 
3038 
2508 
0754 
0357 
2859 
2049 
3039 
O7i1 
Q750 
1753 
0388 
2800 
1240 
1863 
1640 


2249 | 


1882 
o4e6 
0469 
1849 


0528 
1930 
4132 
0579 
4136 
1742 
1356 
1741 
2102 
4153 
1339 
1756 
1338 
0567 
4137 
1943 
1956 
1942 
1759 
4166 
1772 


388 
388 
B88 
888 
3BB 
885 
88B 
655 
888 
BBB 
888 
Bas 
888 
888 
88B 
BBB 
386 
388 
B88 
385 
888 
885 
38B 
BBB 
3BB 
8BB 
BBB 
38B 


386 
386 
886 
888 
3BB 
5868 
38B 
38B 
6BB 
8BB 
3888 
888 
886 
388 
8BB 
BBB 
856 
38B 
BBB 
BBB 
868 


CoC oer ce COCCOECOOKFCOCE ORF OCE ES 


ececoceccceccceoccaoacce 


2837 
2837 
2841 
3500 
9999 
9999 
0754 
e220 
0840 
0001 
HHHH 
9000 
2049 
0001 
00453 
4198 
4651 
0008 
4198 
1240 
4631 
GQ00 
9999 


2. 4050 


1064 
6469 
1821 
2220 


1930 
2300 
4277 
4804 
QO0A 
48ou 
1300 
1855 
1307 
QO00A 
4804 
4735 
4975 
4885 
QOOA 
§BO4 
0057 
0007 
4336 
OQOOA 
48O4 


2659 
2639 
4Si4 
0000 
4140 
1133 
0756 
I036 
0755 
O711 
0357 
2839 
QOO0A 
3039 
O711 
0750 
1783 
0388 
2800 
4833 
1883 
1640 
2249 


41882 


u4d6 
“ido 
1840 
1133 


4514 
0000 
0579 
4050 
174) 
1356 
2102 
2102 
4050 
1338 
1756 
0587 
0587 
4050 
1942 
1956 
41759 
1759 
4950 
1771 
2040 


OMe 
O1MsS 
wOCOM 


COMe 


EQ1S 


covs 
RED 


WONQ 


WOTRC 
&TRC 


~TRC 


WOLIS 
&LIS 


“LIS 


1 
WOCOR 
&COR 


-COR 


WDOPRG 
&PRG 


TGR 
LOL 
LOA 
CON 
TIRS 
IIRS 
LOA 
STA 
LDL 
TIR 
IIR 
ERSS 
ADD 
LOA 
ERS 
LOL 
STL 
ADD 
STA 
LOL 
BUF 
STAI 
IIRS 
LOA. 
LOL 
TES 
LDA 
STA 
EQU 
LDA 
CON 
LDA 
STA 
ADD 
STA 
LDA 
LOA 
STA 
ADD 
STA 
LDA 
LDA 
STA 
ADD 
STA 
IIR 
IIR 
STA 
ADD 
STA 


OMe 
DiMe 


03350 
9999 
9999 

iF 

VAOW 

COMMU 
0001 
HHHH 
0000 


0001 
XM 
COMON 
TEMP | 
RL 
COMON 


TEMP 
0000 
9999 


LAST 


k 7 
EAs 
MISUS 
VASW 
COM 


03230 
81650 
NOTAG 
RA 
NOTAG 
TRCOF 
TRCON 
TRCSW 
RA 
NOTAG 
PROF 
PRON 
PRTSW 
RA 
NOTAG 
0057 
0007 
INCRE 
RA 
NOTAG 


ALARM 
00000 
NORMX 
BOOLS 


INSMS 
2F 


RA 


ar 


BRez 


NORMX 


BOOLS 


ALARM 
g0000 


SCAN] 
“TRC 


iF 

iF 
SCAN] 
“LIS 


iF 

LF 
SCANi 
=~COR 


lF 

LF 
SCANIL 
“PRG 


& BAD DIMENSION 


UY27e* COMMON? 
S&T UP GCUMMUN MULE) MARA CALM UEP AER 
THAT COMES ALONG aS COMMON AND ALLOCATE 
THE STORAGE FOR IT, 


G ®68AD EQUIV 


U29eCONTROL WORDS 
THE WOROS NOeTRACE tL ISTICORE+ CARDS REALLY 
NEVER GET PAST TKE SCANNER: THEY ARE 
DETECTED AT STEP S10, THEY MERELY SET 
INTERNAL SWITCHES INSIDE THE COMPILER» 
AND RUN OFF TO#G1e 
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O149 2040 B88 9 25 4758 2060 LOA PCHOF iF 
8 Z 3150 1771 S886 Vv 25 4651 2060 -PRG LOL  PCHON LF 
Bs: 3151 2060 8BB vy 60 4981 4050 ! STA PCHS# SCath 
S 3152 4i1U0 888 9 05 4740 2142 ODO LUX Al iF 9. DO LOOP CONTROL 
> 6 a 3153 413g BBB Y OG 2142 2142 WOTRYU “LX Le WHEN THE WORD pO OR THROUGH IS SENSED: ENTRY 
23 3154 2142 BBB y 25 «9944 «0546 1 LDA 3 1S MADE TO STEP Oi. 
a 3155 9546 -38B 2 60 4206 0358 ST. LFSW wOU0L Ole SET UP FOR LABEL 
> a ete W275 gO 4 OF COOL 4246 woDO1 STXZ 0004 DO MODE IS SET UP. A SWITCH IS SET SO THAT 
d Ss: 3157 2240 8BB i 07 0002 2449 IIR2 0002 WHEy THE NEXT EQUAL SIGN OCCURS HCONTRUL GOES 
5a 31568 2449 BBB 0 50 2451 3056 LOL IF aF TO STEP D3e SEMI=LABEL CONTEXT IS SET UP 
a 82 3159 3056 388 0 50 4117 0669 2 STL. SIGN# SO THAT THE LABEL FOLLOWING COMES IN AS A 
dD §: 3160 0669 8BB 0 30 0671 1359 LDL Oomd 1SM01 CONSTANT+YET STEP C5 GOES IMMEDIATELY To C6 
aes oo X IN THE CONSTANT SCANNER: GO TOAGL. 
> 316202451) wBB 1 25° CONN 2440 1 LbDA2 0000 D3. ZERO COMMA COUNT 
31653 244Q 6BBB VY 35 «3023 2640 ERS XC THE FACT THAT A COMMA MAY HAVE OCCURRED 
_ 2164 = 2640 BBB 1 60 C000 62840 STA2 09000 BEFORE THE CONTROLLED VARIABLE IS FORGOTTEN, 
> 3165 2840 888 09 30 «2056 3056 LOL #OFF 28 AT THE END OF THIS STATEMENT CONTROL WILL 
, 3166 0944 8BB 9 350 4402 0954 3 LOL =LEOFF PASS TO STEP 05. GO TORK). 
3167 0954 888 0 50 4206 0008 STL LESW RL 
3168 0168 g8B8 9 30 0970 2012 DOr LOL DOIF 
d 3169 0970 888 0 05 4140 0883 LDX NORMA MAGE T 
3170 1370 388 9 30 «#1972 0374 pos LOL 000 00858 O5e CHECK COMMAS 
| 3171 0374 88B 0 SO 1976 4164 00358 STL EXITS 00$1 IF LESS THAN TWO COMMAS HAVE OCCURRED: 
>, 3172 = 4164 «6888 1 25 «0000 3040) Os] LOA2 0000. INSERT of 91" IN THE PSEUDOCODE. | 
5173 3040 BBB UV 70 2212 2849 ADD B81G4O -D02 
2174 2849 88B 0 O07 1074 4onR “102 1TIR ToO24 nIvTi 
, 3175 2850 688 1 07 #9998 3057 &DO2 IIR2Z 9996 Doe STORE EXP IN TEMP 
3176 3057 88B 0 05 2859 0283 LDX CLACC COMPILE CODE TO STORE REGISTER A IF THERE IS 
> 3177 2859 888 0 30 4745 1097 LDL TROFF A COMPUTED RESULT THERE. SET A SWITCH SO THaT 
| 2178 = 1097 BBB 9 50 4789 «(0741 STL TRSW THE TEMP STORAGES USED TO HOLD COMPUTED 
3179 074) 888 0 O07 HHHH 1144 TIR- HHHH RESULTS ARE MADE PERMANENT STORAGES 
| 3180 1144 886 139 $996 O798 ERS3 9996 _ (SEE STEP 152), 
D 3181 0798 @8BB 09 70 3000 oon, ADD RA 
3182 3000 888 0 25 0001 2649 LDA 0001 
9 3183 2649 68BB 0 60 2651 0858 STA DON 
EE 3184 0858 888 1 29 9997 0999 LDAS 9997 
a 3185 0999 8BB 0 60 1079 2481 STA T0029 07+ DO OR DONT 
: 3186 2461 B8B 1 35 0001 3049 ERS2 0001 THIs IS A DONT LOOP UNLESS: 
D: 3187 3049 888 0 35 1634 3050 ERS OOTAG A) THE WORD THROUGH WAS NOT USED 
é 3188 3050 888 0 31 1858 1858 CLL 8) NO DO IS IN PROGRESS 
: 3189 1858 BBB 0 82 2661 2861 TEQ@ DONT C) gOTH THE STARTING VALUE AND INCREMENT 
D 2190 2861 8B 1 29 000 285} LOAS 0000 ARE CONSTANTSs 
3191 2851 888 0 35 4723 0678 ERS KONeS ODONTIN CASE OF A DONT LOOP,.GO TO STEPAOIO. 
: 3192 0675 SBB 1 39 9998 3751 ERS3 9998 nos 
2c: 3193 3051 BBB U0 82 2661 2058 TEQ DONT 
: 3194 2058 #688 0 50 1634 2258 | STL DOTAG 
a 3195 2258 388 0 25 0809 1911 LDA LSWON Due B3EGIN DOO 
ae 3196 1911 8BB 9 60 0089 0691 STA LSW SET THI\GS UP FOR PUTTING VARIABLE IN AN 
6 2197 0691 BBB 1 0G 9995 0095 IIR3 9992 INDE* REGISTER. SET SWITCH FOR SPECIAL 
: 3198 QO9S BB 0 O07 HHHH 9098 IIR = HHHri HANDLING OF LABELS, COMPILE LIR1 N 3F; 
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5199 
3290 
2201 
3202 
3203 
2204 
3295 
2206 
2207 
3208 
3209 
3210 
3211 
32212 
3213 
3244 
3215 
2216 
3217 
3218 
2219 
2229 
J22i 
2222 
2225 
3224 


3225 
I226 
S227 
3228 
3229 
2230 
3231 
2232 
3235 
2234 
3235 
3236 
I237 
3238 
I239 
2240 
241 
F242 
S245 
3244 
2245 
5246 
S247 
3248 


9098 
2458 
2260 
2658 
9590 
2577 
1180 
2958 
2460 
3058 
2062 
O464 
1867 
3059 
2676 
1278 
2661 
2860 
0664 
3060 
2262 
0666 
2270 


9672. 


4157 
Q761 
9763 
0480 
2082 
089} 
1972 
306] 
OT46 
2133 
1156 
4226 
2402 
0955 
0558 
0960 
2602 
2862 
0866 
3062 
1264 
1863 
2iii 


4158 


368 
886 
888 
388 
865 
3688 
B88 
388 
BBB 
88B 
888 
BBB 
885 
88B 
388 
588 
888 
886 
BBB 
BaB 
888 
658 
386 


BBB 


888 
BBB 
BBB 
686 
358 
885 
386 
688 
888 
3868 
888 
386 
B8B 
88B 
886 
BBB 
88B 
iB8B 
38B 
BBB 
888 
3BB 
BB 


i868 


-m~Or OCececceceoce cece aoce core CK Cr Cem ee CCCrOCoCOCC CC KK LcOCUMCOOoO CC} 


c. 


0005 
2260 
0001 
1388 
1375 
HHHH 
0003 
2400 
0001 
2660 
0464 
HHHH 
0002 
“B24 
1278 
1574 
9998 
0001 
0000 
2262 
9999 
0668 
0672 
1078 
9995 
0763 
2079 
2082 
49689 


4789 - 


2651 
0544 
0531 
0537 
OS45 
0000 
1353 
2844 
0960 
3022 
2220 
0864 
1600 
1264 
0000 
4408 
9000 


4360 


2458 
QOOA 
2658 
0590 
2577 
1189 
2858 
VOOA 
3058 
2062 
4350 
1867 
3059 
2676 
9480 
2021 
2860 
0664 
3060 
0363 
0666 
0270 
0377 
4698 


Q761 
OURD 


wt er le 


0600 
0377 
989) 
1976 
3961 
I746 
2133 
1136 
4448 
2462 
0955 
0558 
0362 
2662 
2862 
0866 
4234 
1266 
1863 
2111 
4140 


1266 


ERS3 90005 
ADD 
LDA 0001 
BUF 10086 
STA 10075 
IIR HHH 
ERSS 9003 
AUD 
LOA 9001 
BUF# OROOO 
LOL 
IIR HHAH 
ERS3 9002 
STA DOVAR 
aaa) Gaeei 
CON 19757 
LOLS 9998 
IIR3S ooo1 
STL3 900u 
LOL 
IIRS 9999 
LDAK 04194 
LDL 
IIR T0028 
IIR3S 9995 
LDA 
CON 74207 
LOL 
LDA TRON 
STA TRSW 
LOA OON 
AUF NYNEF 
LDX TwOe 
LIRL DOOSsT 
LOL NOS 
LOAZ 0000 
LDL OLMMD 
TEQ OIM 
LDL 
LOX OVA 
STX UaASW 
OX OFCK 
LOL FCMD 
LOL. 
LDA2 9000 
ADD #87G0l 
STAZ 0000 
EQU MRP 
LOL. 


RA 


KA 


09999 
ASM2 


42021 


GET 


00000 
ASHI 1 


OLvRT 


7F 
90000 
ASN11 


EXITS 


INS 


FASIN 


MDOP2 
PARSB 


NORMA 
PARSS 


2 TiRL M+ LOL Ve TGR 9Fe GO TO STEPRDLOe 


S SF2H ITRIN LOLS TGROF MKOF 
DLOsLDA INIT 3F 
COMPILE LOA WITH INITIAL VALUE. 


G UZACC 3F2H 

Mile V+ INC 
ARTIFICIALLY INSERT +V¥ INTO THE PROGRAM: 
THUS RUNNING THROUGH THE ORDINARY aD 
GENERATOR TO CREATE CODE TO PUT THE SUM OF 

G LOLS TGROF STA uzacc 
V + INC IN REGISTER Ac 

Di2eLOLe TGR | 
COMPILE 3 LOL FINe TGR 9Fe STA V 

D2O05eL ABEL IN TABLE 
PUT THE LABEL NUMBERe TOGETHER WITH THt PER~ 
TINENT ADDRESSES FOR LINKING UP CONTROL 
(9F e238) INTO THE DO STACK, EXIT ToORULe, 


Fe FUNCTION CALLS 
TRANSFER IS MADE TO STEP Fl IF WE HAVE AN 
UNDIMENSTONED IDENTIFIER FOLLOWED BY A LEFT 
PARENTHESIS+NOT OCCURRING IN A DIMENSION DEC. 
Fie ASSIGN F 
IF THIS IS A NEW FUNCTION DEFINE IT. IF IT IS 
A CONSTANT OR SIMPLE VARIABLE + TREAT AS 
IMPLIED MULTIPLICATION. 
F2e SET FUNC MODE 
SET UP FUNCTION MODE?+ANU ALSO PUT A SPECIAL 
LEFT PARENTHESIS OPERATOR ON THE STACK, 
AS WE PASS OVER THE LIST OF PARAMETERS: 
code IS COMPILED To COMPUTE THEM AND STORE 
THEM IN TEMPe IF THE PARAMETER IS A CONSTANT 
X OR INDEX REGISTER. AS THE RIGHT PARENTHESIS 
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vw AUN © 0 O-= DN 


- 


I249 
3250 
2251 
2252 
32535 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
5265 
7264 
22695 
2266 
3267 
3268 
3269 
2270 
2271 
3272 


3273 


3274 
2279 
2276 
3277 
3278 
2279 
3280 
3281 
5282 
32835 
3284 
3285 
2286 
3287 
3268 
3289 
3290 
3291 
3292 
3295 
I294 
3295 
2296 
2297 
5298 


1360 
Q3e4 
93368 
20,3 
9479 
2263 
9298 
Q348 
1953 
1798 
2463 
2663 
2863 
1866 
1878 
9680 
4029 
4025 
3063 
0693 
1297 
2099 
2302 
9743 
0347 
40d4 
1864 
0417 
4027 


2007 | 


2064 
2311 
2264 
1266 
1978 
2464 
22607 
va79 
0685 
0684 
23553 
1257 
3022 
4026 
2266 
O749 
2664 
3064 


388 
888 
388 
88B 
388 
aaa 


353 
BBB 
888 
888 
368 
3BB 
388 
888 
B88 
688 
868 
866 
888 
BBB 
888 
888 


388 
J} -) 
388 
888 
385 
888 
3B 
888 
885 
885 
38B 
aBs 
BBB 
88B 
888 
888 
B8B 
685 
BBB 
BBB 
888 
888 
668 
888 
8B 


Cer GCOocece oeoce ce ooerccococcocaeaaocecerce Grr Oe cGietiu cer CC 


0562 
0166 
0000 
0400 
0406 
O35 
4196 
0008 
4196 
4097 
0001 
9000 
1866 
0900 
0680 
9000 
3063 
0417 
4191 
0295 
2099 
HHHH 
4191 
0345 
0749 
1864 
1864 
0008 
4623 
0043 
4209 
0001 
2066 
1976 
9000 
2464 
0900 
000A 
1287 
4431 
0685 
1976 
1068 
2664 
0749 
0001 
2212 
9000 


9364 
Q368 
2063 
9470 
2263 
wrat:) 
J348 
1953 
1798 
2463 
2663 
2863 
1866 
1878 
QO0A 
4029 
4025 
a74y 
0693 
1297 
45564 
2302 
0743 
Q547 
4357 
0108 
2067 
2067 
2067 
2064 
231) 
2264 
4494 
1978 
2464 
2267 
08a79 
0684 
0363 
2333 
1287 
Y2k3 
4710 
2266 
4350 
2864 
3h6y 
0668 


NAME - 


FoQoOs 
FQOO1] 


FQOU0 


FCEX 
FoQ0OS 


PARSB 


&PAR] 
-~PAR1 


DUA 
FQO0O2 


LOL 
STL 
LOA2 
SriF 


ALO 
LOL 
AOD 
STA 
sus 
sTA2 
LDA 
CLX 
SHR 
AOD 
LDA 
LOL 
LDX 
STL 
LDAA 
LOL 
IIR 


ERS 


BUFR 
LOL 
LOL 
ATL 
LDA 
LOL 
ERS 
STA 
LDAZ 
LOX 
STL 
LOAS 
ATL 
SAL 
AOD 
LOL 
LDA 
TEQ 
LOXx 
IIR 
LDAA 
LDL 
LOA2 
BUF 
STAS 


ee ee ee ee er re rte ttre etcemnemen nem, 


EXITS 
TOO18 
07990 
oF 
0001 
BIG4y 
0000 


NAMEC 


OF 


RA 

FOOOS 
FOQQO1 
ASIGN 


HOQO00 
ASM32 


90000 
ASM33 
LSWOF 
IF 
1F 
1F 
2F 


ASH42 


“PARI 
GET 


\F 
CLACC 
DIvtT2 
19999 
ASM? 


CLOSING THE FUNCTION CALL OCCURS+ TRANSFER 
WILL GO TO STEP Fu, GO NOW TO STEPAGL. 
BEGIN REVERSE PASS 

BEGIN NOW A RIGHT=TO-LEFT PASS OVER THE 
PARAMETERS. RESERVE THE UNIQUE STORAGE FOR 
THEM, THEN PROCESS EACH PARAMETER IN TURN, 
THE TYPES OF CODE PRnrDUCFED are — 

FOR SIMPLE VARI ABLE PARAMETER@=PARAMETER 


IIR HHHHs ERS PARAM: STA LIST 
AND LIST IS MARKEU AS TEMP STORAGE, 
FOR A LABEL (I1@0 SUBROUTINES ONLY) + CODE 
OO LLLL 0000 (QUT OF SEQUENCE). 
FOR AN ARRAY+ IIR age STA LIST. 
FOR a SIMPLE VARIABLE OR TEMP STORAGE?! 
OO LLLL 0000 (OUT<OF-SEQUENCE),. 


w w 


oe 


Flared 
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w 


?EPRODUCE, COPY, USE OR TRANSMIT THIS DOCUMENT AND/OR THE INFORMATION THEREIN CONTAINED, 
iN WHOLE OR IN PART. OR TO SUFFER SUCH ACTION BY CTHERS, FOR ANY PURPOSE. EXCEPT WITH THE 
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SAME TO SPERRY RAND CORPORATION, UPON DEMAND 


Onrp E_aAN © © 


ee eee : 7 


3299 0665 sAB 
(3300 0597-888 
3301 2066 a8 
3302 0670 888 
3303 0865 888 
3304 2079 gaB 
3305 1865 888 
330¢ 2078 Sos 
3307 0860 88B 
3308 2065 BBB 


25 1395 0597 LDA [0095 

30 2066 4350 LOL 7F ASH2 
0G 9999 0670 7 IIRS 9999 

25 Q000 0865 LDA2 9000 

70 4225 2078 ADD sIG99 “PAR 
60 0000 1865 &PARY STA2 9000 

25 0001 1798 LDAZ o00ol 98 

270 0860 252 om aa Lut 4F 

25 0001 2065 LOAZ2 ood) 

75 4097 0500 SUB KONI 


ec ererx. OC OF OOF Ge & Cee Co 
Lol 
o 


3309 9500 888 0166 0932 LDL EXITS F IUNX 
3310 2282 688 1 29 0000 2265 4 LDA3 0000 
- 3311 2265 688 29 32 O400 4970 SHR o400 ASM36 

3312 0562 #888 0 05 1821 2465 DOWN LOX MISUB F5e LIRS 

3343 24605 88B 0 65 2220 2665 STX UaSW AFTER ALL PARAMETERS HAVE BEEN PROCESSED: 
3344 2665 B8B i 07 9999 90869 IIR2 9999 COMPILE THE INSTRUCTION 

3315 0869 885 1 29 0000 2865 LOA3 9000 LIRS UCLIFUNCT+ AND THE 

3316 2865 3888 v 35 4740 0492 ERS Xj} NEXT INSTRUCTION GOES TO LOCATION U(I). 
3317 Q492 688 09 30 4yun 2342 LOL NORMX THE PARAMETERS HAVE BEEN LISTED IN U(lei)e 
3318 2342 3888 0 50 1819 9463 STL a&$Aac SACC U(I+2)0 ETC. 

3319 _ cALe FQU NOe IF THIS CALL IS NOT IN A CALL STATEMENTs TREA 
3320 2520 o38B i 29 GO0O 35065 CALS LDA 0000 THE RESULT AS A COMPUTED QUANTITY IN 
3321 3065 888 U 35 0645 2466 ERS Hi REGISTER Ae GO TOHGI.: 
(3322 2466 BBB O 350 4974 2876 LOL grGio NOTE: IF A CALL STATEMENT IS. GIVEN WITH 
3323 2876 888 J 82 2822 1279 TEQ OMS NO PARAMETERS+ NO REFERENCE TO UNIQUE 
3524 1279 4BB Y 30 2681 03462 Lot FaSIa STORAGE IS MADE. 

3325 2681 888 09 30 2083 2282 LOL 4B 

3326 2083 688 09 05 o48% 4084 LOX FARNL 

3327 O485 gB8B V 30 2822 90932 LOL U1MSs FIUNX 

3328 4160 888 9 30 0762 0755 WOCAL LOL CALMU INSMD 

3329 0362 #8BB J 50 0201 2666 FASIN STL EXITS 

3330 2666 58H 2 30 UB6a 4833 LOL BR2 

3331 0868 68B 77 0868 9871 ATL 

332 0871 8688 Y 70 2212 2866 ADD #s1G4O ~FUNC 

3333 2866 888 J 70 1268 2119 ~FUNC ADD “FNC 1 

3334 1268 88B 0 59 9999 9000 CON 59999 90000 

3335 2119 888 2 07 O100 2522 -FNC I TIR = =©9100 

3336 2522 888 9 70 1924 1327 ADD FS 

3337 1327 888 0 60 1924 1126 STA FS 

3338 1126 BB UY 32 0200 113) SHR 0200 

3339 1151 8868 0 34 0001 3066 : LULL 0001 

3340 3066 888 09 05 1868 0204 LOX SUBDF 

3341 1868 #8B8B 2 30 0870 4833 LOL BR2 

3342 0870 888 9 20 i924 1326 BUF FS 

3343 1326 886 0 77 #1326 1329 ATL 

3344 1329 888 09 64 0000 2867 STAL 0000 &FUNC 

3345 2867 3888 1 29 90000 2467 &FUNC LDA o000U 

3346 2467 3BB v 35 4740 3692 ERS Xj 

33547 9692 888 )9 20 O0OR gu%96 SUF RL 

~ 3348 0496 8B 1 64 Q000 o201 STAS 9000 EXIT4 
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a eee ee OC eee —— 
—_ —e ra 


J5K9 O2l4a 98S 
3350 2667 388 
3351 2511 9886 
3352 1916 888 
3353 2520 2385 
3354 1355 3886 
J355 97357 388 
4556 éi4d tp 
3357 1501 388 
3358 i765 eB 
3359 3067 888 
3360 1965 9386 
3361 0568 886 
2362 O171 888 
3363 o775 386 
3364 0371 888 
3365 1373 888 
3366 4129 888 
3367 2553 #868 
3368 1358 9688 
3369 1760 6886 
3370 0522 48B 
2571 2002 #888 
3372 2068 888 
3373 9893 386 


65 4926 2667 SUPRDF STX EXITS 

SQ 4209 2811 $TL  TeMPe 

32 0200 1916 Sho |= O20u 

35 90718 2520 EFRSH 90000 QHHOD 

20 4603 1355 BUF «IG6U 

30 0757 4700 LULL ASM4 1 

05 4209 1361 LOx TEMP2 iF 

20 «44926 «= 1 SH] SHEAD STL EXITS LF 

25 1363 1765 ! LOA HEAD 

75 4097 3067 SUB KONI 2F 

60 1363 1965 2 STA HEAD 

31 0568 0568 CLL 

82 O171 O37] TEO LF 

50 0773 O775 STL WARN 

07 0050 3067 IIR 0050 * 28 

70 1373 0004 at ADD RA 

65 1549 4926 STX 90000 EXITS 

25 1331 2533 LABL LDA LEXPy De OUOe CLOSE OF DO RANGE. 

60 4206 1358 STA LUeswW AS EACH STATEMENT Lapel IS ScaNNED IT Is 
30 1760 4044 LOL SCAN CHECKED AGAINST THE TOP OF THE Oo STACK 
30 0522 0089 LOL Laglx uLsw TO SEE WHETHER THIS STATEMENT IS THE END OF 
29 0000 2002 LABLX LDA 0000 LOX 4 THE DO RANGE. IF IT rSe THE NEXT APOSTROPHE 
35 4741 2068 LBLX1L ERS XMH OPERATOR (ENO OF STATEMENT) SENDS CONTROL 
60 4191 0893 |... STA TEMPS . TO. STEP 0406 

30 0495 4736 LOL GOTO 


I374 0495 886 4191 LIU LOX TEMPS 

3375 1143 888 0 65 4880 4140 STX NxXLOC NORMX 

3376 1331 888 9 77 i331 1334 LEXP! ATL. 

3377 13534 88B 0 25 0537 1939 LDA DOOST 

3378 1959 368B 0 70 1141 QOOA ADD RA 

3379 1141 886 2 25 0COO1 2268 LOA O00) 

3380 2268 888 235 OO43 2468 ERS XM 

338) 2408 88B 9 62 1271 1871 TEQ 1F 

3382 1271 888 9 25 0473 0875 LDA QOOEON 

3383 0875 888 0 60 4170 1873 STA OOESW iF 

3384 1871 3BB Y 50 4209 2711 i STL TEMP2 2F 

3385 0244 888 60 4209 2711 LEXP STA TEMP2 aF 

3386 2711 888 0 05 4277 1929 2 LOx B81Gs0 

3387 1929 88B 0 65 4412 564 STX TYPE 

3388 0564 88B Uv 25 0366 0768 LDA LIT99 

3389 9768 8B8B UY 30 4u10 4729 LOL SEND SRCH 

3390 0473 3BB 0 0B 0537 3076 NOEON LIR1 poosT 940. GO To 2e 

3391 3076 888 2 30 2278 4229 LOL REM EFFECTIVELY COMPILE GO TO THE INCREMENTATION 
3392 2278 888 0 29 G001 2668 LOAL 0001 PHASE AT THE SEGINNING OF THE CO LOOP CODINGs 
3393 2668 888 9 60 4191 1293 STA TEMPS AND SET THE NEXT INSTRUCTION LOCATION TO BE 
3394 1293 888 0 35 0043 2868 ERS XM OF + THE ADDRESS FOR EXHAUSTION OF THE 00. 
3395 2868 8B 2 60 C024 3068 STA TEMPO 04100 OR DONT 

3396 3068 888 9 25 OOOR 1272 LDA RL NONTIF THE LOOP JUST ENDED WAs A DONT LOOP, 
3397 1272 388 » 35 474, 1893 ERS XMH SKIP TO STEP#DS0. 


cecoccacaccecccoacaoccoccoaccecacoccececoaocoocceecaooceceece co Ot eck 
c 
15 


3398 i893 888 70 0695 4736 LOL. GOTO 08 


PorRuIN gd Gow tiw we we ne 





J999 O6¥5 388 
3490 1343 888 
S401 0950 385 
I4O2 1269 88B 
S495 2708 388 
S404 1869 656 
5495 2093 #888 
2406 2542 386 
JHQ7 0545 #888 
3408 0748 888 
IHO9 2069 888 
3410 2110 S88 
S41 1291 888 
3412 1926 386 
S415 2269 888 
2414 0673 B88 
= 3415 0277 #886 
24 36 1875 38, 
S417 2283 88B 
37418 2469 888 
5419 2293 9888 
2420 1897 3886 


25 4191 1343 LOA TEMPS 

37 «©0400 60950 SHL 0400 

25 0043 1269 ERS XM 

20 4756 2708 BUF 8I1G0ed 

64 9003 1869 STAS 9003 

25 4191 2093 LOA TEMPS 

35 4740) «2542 ERS Xj} 

31 0545 0548 CLL 

82 0848 0748 TEQ &F 

60 1634 2069 STA DOTAG 

25 0108 2110 LDA LSWOF 

60 0089 1291 STA \USW 

25 4824 1926 LDA DOVAR 

64 0002 2269 STAS 9002 TF 

05 2071 0673 7 LOX SF D4ZceEMPTY LLIST 

06 0415 0277 LIRA LLIST TURN OFF THE VARIOUS INDICATORS WHICH ANE 
30 1879 4229 LOL REM SET MIFFERENTLY WHILE WE ARE IN A DO LOOP, 
50 4631 2283 STL TEMP1 THEN FOR ALL LABELS WHICH WERE GIVEN 

29 90001 2469 LOAL 9001 TEMPORARY ASSIGNMENTS» WE HAVE AN LLIST 
35 4741 2293 ERS XMH ENTRY AND WE NOW OUTPUT THE INSTRUCTIONS 
05 QO00A 1897 LOX RA T 1IR1 0 

29 0001 2669 LDAL 9001 STA V P 
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3421 2009 888 0 37 0400 0477 SHL = O40u WHERE V IS THE DO VARAIBLEs T IS THE TEm= 
3422 0477 + 8BB 9 35 0043 2869 7 ERS AM _PORARY ASSIGNMENTs P IS THE PERMANENT 
3425 2569 8B 4277 2279 BUF s81G5uU ASSIGNMENTe THE TEMP ASSIGNMENT IS THEN 
3424 227¢ 888 1 64 9001 306¢ STA3 9001 FORGOTTEN. 

3425 3069 8BB 9 30 2271 4303 LOL BRi 

3426 = 2271 8BB 0 35 «(0435 «1270 ERS xcO 

3427 1270 888 uv 20 O0OC 0674 BUF RX 

53428 0674 38B 9 64 0000 1870 STAL 900u 

3429 1870 888 9 30 o00¢ 0874 LDL RX 

3430 80874 BBB O 25 4631 2483 LOA TEMP1 

3431 2483 88B 0 35 4741 2493 ERS XMH 

3432 2493 B88B 0 82 2269 0696 TEQ 78 

3433 = 0696 «BBB 9 60 4880 2132 STA NXLOC 

3434 2132 88B 0 25 1934 1336 LOAM 88790 90000 G  TIR1LO STAS 

3435 1336 38B 9 30 0738 0377 LOL ASA14 

3436 = 0738 «=68BB 1 29 0001 2070 LDAS 0001 

3437 2070 888 0 30 1872 0089 LOL LSw 

3438 1872 88B 0 30 2269 4686 LOL 78 FIuuP 

3439 = 2071 JBB 0 60 4824 o0S54R 9 STA OOVAR aF 

3440 0548 BBB 1 29 0003 2270 8 LD*3 0005 050. ANY MORE 

3441 2270 BBB Y 60 4e80 2482 STA NXLOC YES#IF ANOTHER DO LUOP ENDS ON THIS 

S442 = 2482) BBB 0 25 «0537 «2139 LOA DOOST STATEMENT,» RETURN TO STEP#D4O. ELSE 
3445 2159 BBB 0 70 1341 00a ADD RA NOt GO TOROS. 

3444 1341 688B 2 25 0001 2470 LDA 0001 

3445 2470 BBB QO 35 0043 2670 ERS XM 

3446 =92670 BBB Y 30 0024 2870 LOL TEMPO 

3447 2870 3888 0 82 0473 0873 TEQ DOEON 


COCOoOcoocrceor coe coeocotce ooroce oceooooceooracceococecrocac 
fo 
oO 


3448 0873 388 2 25 4376 24738 © LOA DOEOF 
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5449 2478 8B 2 60 4170 O00A STA ONESW RA 
og Z 3459 Xe PROCESSING FORMAT STRING 
‘Dg: 5451 XLe COMPILE 02 
< oe 3452 4149 88B J 25 4196 1998 WOF MT LDA UnjlQu THE INSTRUCTION O2 mMMM CCCC IS COMPILED 
a g 3453 1998 888 5 70 4408 4079 40D @8IGol WHERE MMMM IS THE STARTING LOCATION OF THE 
20 o 3454 3070 888 4 30 2072 4357 LOL RESET ASA33 FORMAT CODE, WITH THIS TRICKs A FORMAT LABEL 
a .3 3455 X IS LIKE ANY STATEMENT LABEL. 
F > fo 2430 X NOW We TRANSLATE THE FORMAT INTO A SPECIAL 
cz a 3457 X  PSEUDOCODE. THIS CODE GENERATES INSTRUCTIONS 
om 2458 X OF THE FORM OP NNN WWW 00+ CORRESPONDING 
pv: 3459 X TO FORMAT SPECIFICATION *NNN E WWW.DD', 
Z 3460 X  OPCODES O-10 CORRESPOND RESPECTIVELY To 
F461 . X  ()PIEFXAHM/ 
® 3462 2072 888 4 25 1274 0677 RESET LDA FswoF X2e RESET OPeNeweD 
| 3465 0677 BBB 0 60 2479 288; STA FSW G NA#TEMPS OPATEMP6 DOATEMP7 WHTEMPS 
S464 286, 9888 9 30 26835 0885 LOL CLO CLEAR OP» Ne We AND 9 TO ZERO 
3465 2683 3888 2 60 419) 2693 STA TEMPS 
6 3466 2693 888 0 60 co2s 2471 STA TEMPO 
3467 2471 8BB YU 60 4750 1150 STA TEMPS x0000 
- 3468 1150 88B 0 30 1352 4202 x%0000 LOL NXTCH X3e NEXT CHARACTER 
D 3469 13592 886 9 OB 1150 4205 LIR2 X0000 KIND GET THE NEXT CHARACTER FROM THE FORMAT LIST. 
3470 1152 8688 0 25 4194 0196 X0002 LDA TEMP? SIF IT IS BLANK» DOHX3 AGAIN 
3471 0196 BBB 9 37 «0100 267; SHL 0100 e SIF IT IS A DECIMAL POINTs CYCLE NoWeD LEFT 1 
. 3472, 2671: «BBB O 20 000 $1275 BUF RX _ AND RETURN TOHXS 7 
3473 1275 BBB 9 60 4194 1150 STA TEMP? x0000 Nt IF IT IS NUMERIC+e SET 0 To 10#0 PLUS CHaR AXS 
| 3474 1154 BBB O 25 2356 1752 xoo00u LDA EFSWON IF IT 1S ALPHABETIC oR SPECIAL CHARACTER, 
® 3475 1758 888 9 60 2479 3081 STA FSW CYCLE LOOK IT UP IN A TABLE TO SEE WHAT TO DO. 
3476 1153 BBB 0 26 2556 2556 x0003 CLA IF EFISAN — F I A OR M MEANS GO TO#XY, 
S477 1151 888 0 26 2556 2556 xo001 CLA IF +- $4 PLUS OR MINUS MEANS GO TO#XS. 
D 3478 2556 888 9 32 0800 0764 { SHR 0500 XP $AN X OR P MEANS GO TOMX6. 
: 3479 0764 88B 0 37 oO400 0571 SHL 0400 ( $& LEFT PARENTHESIS MEANS GO TOAX76 
, 5480 0571 BBB 0 32 0900 1983 SHR 0900 17) 3COMMA SLASH AND RIGHT PARENTHESIS GO TOAXd. 
D 3461 1983 88B 0 77 #1983 0586 ATL H %tTHE LETTER H MEANS GO TOBX9. 
3482 0586 BBB O 60 4394 0396 STA TEMPO ' 3$AN APOSTROPHE MEANS we GO TOAX11, 
. osee 3493 0396 88B 0 20 2198 287; BUF 3F 
D sirz 3484 2871 88B 0 60 1155 0957 STA x0005 
yess 3485 0957 #8BB 0 08 1173 1960 LIR1 x0023 2F 
Bae 3486 1960 888 0 29 0000 3071 2 LDAL 9000 
Des, 3487 3071 688 9 35 1273 1878 ERS X89 
art: 3488 1875 88B 0 82 2678 2878 TEQ IF 
boo < 3489 2878 8B 0 0G 9999 1960 IIRL 9999 2B 
De so! 3490 2678 BBB 9 29 Q000 2272 1 LDA1 0000 
POE 3491 2272 888 9 32 0200 1277 SHR 0200 
been 3492 1277 888 9 35 1273 9054 ERS X99 alga 
20D frets 34932198 BBB 9 00 2472 9000 3 JMP 0909 
19 BEES 3494 2472 BBB v 25 4394 9896 LOA TEMPY VAR 
18 9258 3495 1173 BBB 9 00 0975 vO3A XQ023 JMP FORCE Ou3A G 
7 PF eas 3496 1172 BBB 0 00 0574 003A x0022 JMP LEFT 0038 GQ x 
6 §35u 3497 1171 688 0 00 0975 0116 xO021 JMP FORCE Oli Go: 
5 Egeo 3498 1170 #88 9 00 0975 1031 xo0zZ0 JMP FORCE 1031 $F 
4B 225 
Sl > 
rect 
£54 
Beg 
ezs 
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P4999 
3590 
2501 
2502 
3503 
35904 
3505 
330s 
3507 
3508 
2509 
2510 
5511 
3512 
3513 
2514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
I522 
35923 
3524 
3525 
3526 
5527 
3528 
3529 
3530 
2531 
3532 
35353 
3534 
2535 
2936 
3537 
3538 
3539 
3540 
3541 
2542 
3543 
2544 
3945 
3546 
$547 
3548 


L169 
1108 
1167 
1166 
1165 
Llow 
1163 


tam 
aevg 


1161 
1160 
1159 
1158 
1157 
1156 
0896 


0962 


1568 


o574 
2176 
0779 


O975 
0596 
2398 
2672 


2165 
0567 
0193 
O797 
2873 
2893 
2126 
2872 
2075 
1880 
2479 
1274 
308} 
1958 
3072 
3093 
1146 


88B 
3BB 
888 
888 
3658 
88B 
388 
Bo 
3BB 
388 
3BB 
BBB 
888 
388 
388 


BBB 
BBB ¢ 


3BB i 
ase 


38B 


388 
388 
865 
BSB 


8B 
886 
386 
888 
886 
BBB 
88B 
aBB 
3BB 
BBB 
888 
386 
BBB 
388 
886 


a6a | 


38B 


eceoceoecog;accococecc 


eccc 


eccccocecccccececce 


00 
QO 
00 
00 
00 
Q0 
00 


om oe 


oo 
00 
00 
00 
00 
00 


60 


60 
05 


05 


4 26 


QO5 


60 
Q5 


05 


OS 
a5 
30 
70 
60 
25 
30 
82 
75 
39 
30 
30 
30 


60 
25 
60 


0896 
0896 
0896 
1368 
0896 
0896 
2165 
vI04 
1368 
0962 
0962 
0962 
0975 
OS74 
0024 


4750 
2072 


2176 
0779 
2072 


4394 
2398 
4394 
2072 


0567 
4191 
0395 
0008 
4191 
44ou 
0567 
2072 
0008 
2072 
2356 
2356 
1150 
4750 
4191 


G194 | 


4750 


0415 
0516 
9319 
9637 
O711 
0924 
0818 
F9OK 
0227 
Q10A 
Q01¢ 
9030 
910¢ 
QOOF 
3084 


1150 
1874 


1874 
0779 
4289 


J596 
2479 
2672 
2074 


1874 
0193 
0797 
2872 
2893 
2126 
0369 
2075 
1880 
9369 
1958 
1958 
1958 
3072 
3093 
L146 
jB85 


X0019 
x0018 
XO017 
X0016 
XO0015 
xOO1L4 
XO0015 
KOVA2 
XQO11 
x0010 
X0009 
xQ008 
x0007 
X0006 
VAR 


FSIGN 
POP 


LEFT 


FORCE 


HOL 


&HOT 


“HOT 


FSW 
FSWOF 
CYCLE 
CyC4 


JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
STA 


STA 
LOX 


LOx 


CLA 


LOX 


STA 
LOX 
LOA 
LOX 


LOX 
LDA 
LOLA 
ADO 
STA 
LDA 
LDL 
TEO 
SUB 
LOL 
LOL 
LOL 
LOL 
LOA 
STA 
LDA 
STA 


VAR 
VAR 
VAR 
POP 
VAR 
VAR 
HOL. 
ONWRYU 
POP 

F SIGN 
FSIGN 
FSIGN 
FORCE 
LEFT 
TEMPS 


TEMPS 
RESET 


nce eal 


TEMPY 


TEMPS 
RESET 


iF 
TEMPS 
99999 
RL 
TEMPS 
LITS 


1B 
RESET 


RESET 
FSWON 
FSWON 
X0Q00 
TEMPS 
TEMPS 
TEMP? 
TEMPS 


0415 
0516 
0319 
0637 
O711 
0924 
0813 
990H 
0227 
O10A 
O01 
0030 
010c 
Ov0F 
CYCLE 


x0Q00 
ASMF 1 


ASMF 1 


re ; 


FSw 
ASMF 3 


ASMF 1 
99993 
“HOT 
FHSUB 


FHSUS 
cYycl 
cycl 
cYcl 


CL 


ee rr ee ee ee ee ee ee eee ee 


aw + PI Ue Tepe eH TM 


- 
ad 


SET OP sCYCLEs 
SET OP TO THE APPROPRIATE NUMBER, AND CYCLE 
NoWe AND O LEFT te RETURN TOMX3, 
SET SIGN INTO 
SET W TO 0 OR 1 (PLUS OR MINUS) +RETURN TOMX36 
ASSEMBLE THIS OP | 
MOVE 9 TO Ne THEN ASSEMMLE 
OPNWNWWHOD INTO THE FORMAT CODE+RETURN TORXZe 
ASSEMBLE 2 LINES 
MOVE 9 TO N AND. ASSEMBLEs THEN INSERT. A WORD 
OF ZEROES INTO THE FORMAT CODE. THIS WORD 
X 1§ USED AS A SCRATCH PAD BY THE FORMAT 
X PROCESSING PACKAGE, RETURN TO#X2. 
X8e ASSEMBLE TWO OPS | 
IF DECIMAL POINT HAS NOT APPEARED? CYCLE 
NeWeD LEFT Je IF PREVIOUS OP IS WAITING 
ASSEMBLE IT+ ANO CLEAR We IF CURRENT IS NOT 
X A COMMA, ASSEMBLE IT TOO. 
X NOTE THAT ON N/ THE COUNT N COMES OUT IN We 
X9e ASSEMBLE H OP 
MOVE D TO_N AND ASSEMBLE. 
XLOsINSERT LITERAL 
OUTPUT 5 CHARACTERS OF THE LITERAL AT A TIME 
UNTIL THE H LITERAL IS COMPLETED. 
THE ROUTINE FOR H LITERALS IN THE CONSTANT 
CONOENSER IS USED: WITH ZERO FILL AT THE 
RIGHT, RETURN TOAK2, 


Ut 
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3339 
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3565 
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3565 
3566 
3567 
5568 
2569 
2570 
9571 


3872 


3575 
3574 
5575 
53576 
3577 
3578 
3579 
35860 
53581 
2582 
3585 
7584 
35a5 
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7987 
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9591 
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2597 
2998 
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2556 
2974 
1877 
1874 
1296 
2080 
2486 
0894 
0700 
1952 
1357 
0796 
1799 
0369 
1875 
2911 
2513 
0904 


4146 


1148 
“iso 
176} 
4147 
0949 
1350 
1354 
2158 
0767 
2073 
1780 
2273 
3078 
22460 
2682 
2086 
2720 
21244 
2473 
0792 
0393 
0595 
1999 
2673 
2077 
0997 


386 
383 
386 
38B 
888 
886 
888 
6BB 
88B 
888 
8BB 
888 
8B8 
888 
888 
BBB 
38B 
888 
886 
385 


388 
6888 
a 
386 
8868 
888 
BBS 
888 
B8B 
3BB 
88B 
888 
388 
886 
B88 
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3868 
388 
38B 
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886 
888 
gee 
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05 
78 
Q5 
78 
05 
78 
65 
0G 
32 
35 
20 
64 


30 
39 
25 
60 
25 
64 
30 
39 
30 
25 
60 
25 
60 
30 


0688 
4194 
0024 
{877 
Qo0c 
194 
419) 
0300 
419} 
9300 
4750 
0200 
4194 
1799 
4750 
4568 
4209 
2515 
4u20 
4135 


1148 
1348 


twa! 


1961 
0949 
1961 
2152 
0002 
0600 
0043 
1178 
0000 
0200 
2280 
2662 
0884 
4117 
2722 
9999 
2275 
0394 
0595 
0997 
2220 
2475 
GOQ00 
2199 


3688 
9003 
2074 
1377 
2080 
1296 
2980 
2486 
9894 
0700 
1952 
1357 
0796 
1799 
4289 
1873 
2911 
4674 
4921 
29380 


1350. 


0405 
t3an 


we wt 


Q406 
41350 
O407 
1354 
2158 
0767 
2073 
1780 
2273 
3078 
0188 
0642 
2686 
2720 
2124 
2473 
9755 
2318 
2364 
1999 
2673 
2077 
2073 
4°33 
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FSWON 
ASMF = 


ASMF 1 


ASMF 2 


FHSUB 


ONWRD 


N78 
WORED 


WOPCH 


WOPRT 


Tois 
TOle 


TOARA 


CLA 
STA 
LOA 
CLL 
TEQ 
LOL 
STL 
SH. 
BUF 
SHL 
BUF 
SHL 
BUF 
CLL 
STL 
STL 
STA 
LOL 
LDA 
LOX 


NEW 
LOX 
N78 
Lox 
N78 
LOX 
N78 
STX 
IIRS 
SHR 
ERS 
BUF 
STAS 
SHR 
LOL 
LOL 
LDA 
STA 
LOA# 
STAS 
LOL 
LOL 
LOL 
LOA 
STA 
LOA 
STAd2 
LOL 


TEMP? 
TeEMPse 


Rx 

TEMP 7 
TEMPS 
0300 
TEMPS 
0300 
TEMPS 
0200 
TEMP? 


TEMPS 
ExIt2 
TEMPe 


TEMP 3 
SIGN¢ 


73000 
IN 
OUT 


OUT 
LOOP 
0002 
0600 
XM 
BYG2v 
0000 
0200 


loa 
SIGNA 
90040 
9999 
ToiMu 
102s 


TOARA 

UASW 

1d02M0 
000u 
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ASMF 2 


ASMF 2 


ASM4 3 


HOLSS 
ASM44 
ASMF 2 


00000 


— 0405 


iF 
0406 


0407 


CALPK 
EXPL 


00000 
INSM 


MCal 
NAMEC 


10a 
Re 


XlLIeASSEMSLE 99 OP 
X THE APOSTROPHE SIGNALS THE END OF THE STATE 
x MENT, ASSEMBLE A TERMINATION LINE AND GOROUT. 
We INPUT-OUTPUT (READ se PUNCH PRINT) 
THIS SECTION IS WITHOUT DOUBT THE CLIMAX OF 
THE COMPILER>. AT LEAST 95% OF THE CODING OF 
THIS COMPYLER PROGRAM CAN BE ACTIVE WHILE 
PROCESSING A SINGLE 170 LISTe 


Wile SET TWO OPERANDS 
SET UP TWO OPERANDS: ONE FOR ThE EDITING 
SUBROUTINE AND ONE FOR THE ORIVER SUBROUTINE 
(IQ DEVICE)» SET UP TO EXPECT A LABLL, 
GO TOKGi« WE WILL RETURN TO STEP W2 WHEN 
THE COMMA IS SENSED, . 


G MISSING COMMA 

Wee CALL FUNCTION | 
USE THE FUNCTION CALL ROUTINE (ROUTINE F) TO 
CREATE INITIAL ENTRY TO THE I/7G SUBROUTINE, 
THEN SET UP 1/0 MODE. IF AN UNOIMENSIONEO 
ARRAY VARIABLE oCCURS WE WILL Go TO STEP 
“5, ON A COMMA WE GO TO STEP W10. 


._ Hand Wnwac. 
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2277 
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2097 
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2675 
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0394 
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4165 
4209 
2152 
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4209 
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077 1 
1773 
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2185 
0000 
0325 
9999 
0531 
9998 
1950 
1814 
1765 
1814 
0000 
0200 
3062 
2086 
QO0A 
1896 
1887 
1289 
0358 
0000 
3023 
0671 
2680 
O742 
0927 
1931 


2274 
2474 
4260 
2882 
2886 
was5 
4426 
4710 
4044 
2674 
2477 
1123 
2326 
2161 
1954 
4242 
236} 
0569 
O173 
1175 
4242 
0381 
0985 
2874 
2125 
3074 
2733 
35073 
2352 
3030 
0363 
2352 
2875 
2480 
2084 
9889 
1294 
9173 
4Uu26 
189} 
0358 
2677 
2877 
3077 
2880 
1344 
2129 
2374 


LOal 


ERS 
LOL 


TIRL 
BUFA 


STA 
LOL 
IIR 
LOL 
LOL 
TEQ 
LOL 
TEQ 
STX 
LOA 
LOL 
LOX 


LDAR 


LOL 
LDA 


LOL 
IIRé 


LOA 


STA2 
LOA 
STA2 


LDA 


STA2 
LOL 
LOL 


LOL 
LOL 


LDAS 


SHR 
ERS 


ADDA 


LOX 
LDA 
LOL 
Luk 
OLX 


LDA2 


ERS 
LOL 
TEO 
LOX 
STX 
LOL 


Q001 
XM 
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01000 
TOO4HS 
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102% 
LPREN 
loael 
TEMP < 
IOOP 


TEMP 
19000 
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To3Mb 
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THREF 
$999 
Twos 
9998 
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ANSL 
0000 
0200 

AS 

04010 

RA 

BIG1S 


wodol 
0000 

Kec 

Domo 


TOBIYU 
TOSSW 


CONST 
05000 


REHRT 
DIvT2 
SCAN 


INSRT 
RESCN 
00u00 
ASal 


INSRT 


10g 
ENTER 
ASMTR 
GET 
ENTER 
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ASM) 
RE4RT 
IMPDO 
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X AT THE END OF THE STATEMENT» WE GO TO STEP 
X  W5O.NOW WE GO TO THE COMMA ROUTINE *STEPAWLO. 
WSe UNOIM ARRAY | 
AN UNDIMENSIONED ARAY A IS CONVERTED INTO 
CACaT#)s #18 IS LeN) 
USING ROUTINE#Q10 WHERE *I% IS A DUMMY 
VARIABLE AND N IS THE PRODUCT CFE OTHE Aaaay 
DIMENSIONS. 


WLOsSCAN FOR ( — 

SCAN NEXT ITEM (CO-ROUTINE S), IF IT IS THE 
it END OF THE STATEMENT,»GO TO STEPAWSO. IF IT 18 
(t A LEFT PARENTHESIS, GO TO STEPAW12, 
OTHIOTHERWISE INSERT AN IN OR OUT OPERATOR 

ON THE STACK THEN GO TO#G2, IN IS STEP Wide 

OUT 1S STEP W15, 


G 3F2H 

WL2eINTERRUPT SEQUENCE 
CREATEA BREAK IN THE INSTRUCTION SEQUENCE, 
FOR WHICH CODE WILL BE INSERTED LATER. PUT A 
SPECIAL LEFT PARENTHESIS ON THE STACK. THIS 
SPECIAL LEFT PARENTHESIS IS STEP W205 


ere em 


GO TO STEP #AWiO AGAIN 


W142IN 
COMPILE LIRS 
WI5e¢OUT 
COMPILE LOA Ve LIRS SUB. GO TOAGLO>s 
SUB IS ONE OF THREE ENTRIES+ DEPENDING ON 
THE TYPE (FLOAT«FIXsUNSPECIFIED) OF V. 


SUBs STL Ve GO TOAGIO> 


G LIRS 

WI7SEQUALS SIGN 
AN EQUALS SIGN HAS APPEARED?: SQ WE PULL THE 
SPURTOUS IN OR OUT OPERATOR OFF THE STACKe 
WE WOW COURAGEOUSLY JUMP INTO THE MIDULE 
OF THe THROUGH ROUTINEs STEPRD1. 

W2050 (LIST) 
THE RIGHT PARENTHESIS MATCHING A LEFT HaS BEE 
ENCOUNTERED. IF AN JMPLIEO DO LOOP OCCURRED 
INSIDEs WE USE PARTS OF ROUTINE 0 TO CREATE 
CODING FOR THE DONT LOOP CONTROL. FINALLY 








| 3049 1931) 86868 9 05 0140) 2742 LUX Toe THE INTC RRUPTIONS FROM STEP wi2 ARE ALL 
ew 8 Z 3650 2742 888 2 65 0927 2329 STX  Tause LINKED TOGETHER PROPERLY. GO TONG1e 
Le 3651 2329 888 i 0G 0001 2933 Tir3 040i 
é S 3652 2933 BBB y 25 0884 2087 DA o# 
oo Nea 3653 2087 388 5 60 4117 2926 STA 5I1GNA 2F 
33 §o< 3654 2880 BB »v 30 2920 1891 1 LOL 2F IMPIO 
- gi 3655 2920 888 1 25 9998 2679 2 LOA2 9998 
E» £6 30356 2979 995 UY 90 2463 4736 LOL GOTO 
28 gis 3657 2883 388 0 25 O848 1346 LDA NINEF 
ba 3658 1346 886 9 37 O400 2153 SHL 0400 
9: 3659 2153 388 0 20 4756 2358 BUF s81GoO2 
: 5 3660 2358 988 0 60 4aso 0982 STA NXLOC 
3661 0962 888 107 9997 4149 ~ IIR2 9997 NORMX 
® 3662 189; 3888 0 50 4195 2297 IMPLO STL EXITo 
3663 2297 8B Y 0S 2299 4oBY LOX FARNL. 
3664 2299 888 U 60 0544 1746 STA NINEF 
, 3665 1746 888 0 30 1748 4686 LOL FILUP 
: 3666 1748 BBB 1 25 9999 2879 LDA2 9999 
- 3667 2879 BBB 0 60 4880 4195 STA NXLOC EXITé 
| 3668 0394 BBB 005 1796 2598 102s LOX# O4O40 00000 
> 3669 2598 BBB O 25 1896 0498 LDA s#rGi3 W50eEND 
3670 0498 BBB 2 30 0900 0173 LOL aSmi COMPILE LIRS SUB, THE ENDING SUBROUTINE, 
| 3671 0900 BBB 1 0G 9999 9904 TIR3 9999 AND THENHEXITe 
- 3672 = 0904 BBB 0 25 2056 3079 LOA HOFF pos ee ee ey 
3673 3079 88B 0 60 4117 O469 STA SIGNA EQL$ 
; 2674 TO38 FOU NOS 
, 3675 ae 103% EQU ro2e 
3676 4iay B88 205 1946 1948 WOFUN LOX iF Pe. FUNCTION ANO SUBROUTINE DECLARATIONS 
| 3677 1946 B88 9 8B 2223 9915 CON 88222 39915 G IYR10 BUFIF LIR1O LDA ATL 
D ~ 3678 4145 88B 0 05 O747 19K8 wDSUB LOX 1F 
3679 0747 48B 9 6B 2223 90000 CON 88222 30000 G IYRiO BUFIF LIRIO 
> 35680 1948 8BB 0 65 2651 3080 1 STX DON Ple COMPILE PREAMBLE 
, 368) 3060 BBB 0 05 0231 3083 LOX BAND COMPILE IIRL 0000+ BUF IF+ LIR1 0000, 
3682 3083 BBB 0 65 4BB0 2332 STX NXLOL (AND LDA 0001+ ATL IF FUNCTION) 
.° 3683 2552 3BB 005 1419 2284 LOX ONEL5 
Dd; 3664 2284 BBB 9 65 2287 1889 STX XLINE 
a 3685 1889 8BB v 350 2091 4oky LOL SCAN 
: 3686 2091 888 1 64 0001 2484 STA3 900) 
D: 3687 2484 88B 0 35 C043 2684 ERS XM 
é 3688 2664 88B 2) 70 2487 O00, ADD RA 
et 3689 2487 #8BB J) 30 0001 2884 LOL 001 
D* 3690 = 2884 «BBB 0 05 «2687 «2089 Lux LF NAME 
3691 2069 dBB 0 65 4H64 2116 NAME STX E€XITI 
ae 3692 2116 6888 1 0G 0001 2922 IIRS 0001 
2cD: 3093 2922 BBB 0 25 2324 2526 LDA HEADL 
19 8 3694 2526 8BB O70 0728 00; ADD RA 
a 3695 0728 B8B 0 50 1549 9551 STL 0000uU 
r 3696 0551 8BB 0 25 9008 1755 LDA RL 
M 3697 1755 886 9 05 4974 2376 LOX B81G10 
; 3698 2376 888 2 32 0500 9964 SHR = 50¥ 
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ADD 
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P2e SET UP CARD 
SET UP THE NAME OF THE FUNCTION INTO THE 
OUTPUT CAROSe INITIALIZE OTHER THINGS LIKE 
THE MEANING OF RETURNe A MAIN PROGRAM 
IS DISTINGUISED FROM A SUBPROGRAM 
ONLY BY DEFAULT. 


P3. SCAN PARAMETERS 
SCAN UNTIL THE END OF THE STATEMENT? 
COLLECTING ALL PARAMETERS ON THE OPERAND 
STACK. WE GET To STEP P& AT THE END 
OF THE STATEMENT, 

P4e SCAN AHEAD 

SIMSIF THE WEXT ITEM SCANNEO IS ANOTHER END OF 

: STATEMENT OR DIMENSION: GO TO#G2. 

OTH: 

as GENERATE THUNKS 
ELSE WE ASSUME ALL DIMENSIONED PARAMETERS 

: HAVE BEEN NAMED+s AND WE COMPILE CODE TO TRANS 
FER FROM THE PARAMETER LIST TO UNIQUE STORAGE 
TEN INSTRUCTIONS FOR NON-OIMENSIONED 
PARAMETERS ANO TWO FOR DIMENSIONED ONES, 


A eee, seth jane tN ence 


3749 1868 B8B VU 25 2651 2685 LDA DON THEN OFF TONG2, 
=. Se 3750 2665 3888 9 75 4097 1900 SUR KON] 
: 3751 1900 8B8B ) 60 2651 2885 STA DON 
o 3752 2885 8BB 0 30 2088 4521 LOL AS 37 
| 5a 3753 2088 888 1 29 0001 3085 LOA3 Qn0l 
'D $0 3754 3085 888 9 30 2288 4303 LOL BRy 
/ Mee 3755 2286 3BB J 70 4392 2295 ADD 81G70 a ae 
! a 3756 1268 688 1 07 9999 236; 1 TIF2 9999 RESCN 
: DB Res 3757 «2361 a8B YU 25 «4030 «4o42 RESCN LDA LAST NORM 
SE 3758 2295 888 0 30 2497 2499 -FB LOL FBsBi 
a So 3759 2497 BBB og 25 4196 2548 LDA UNIQU 
dk: 3760 2548 8B 0 60 0288 90490 STA TMPLS 
: 3761 0499 BBB 9 70 o613 2488 ADD KON3 
| 3762 2488 BBB 0 60 4196 9898 STA UNIQU 
. 3763 0898 8BB 0 25 4604 2807 LDA 81625 
3764 2507 88B 0 30 2509 2312 LOL FBSUB 
3765 2509 8BB O 25 4247 1349 LDA #IG30 
é) 3766 1349 888 0 30 1351 2312 LOL F8SUB 
5767 1351 888 0 25 4277 0979 LOA BIGSO 
3768 0979 388B 0 30 Oags 2312 LOL 88 FBSUa 
5 3769 2296 BBB 0 30 1098 4303 &FB LOL BR1 
3770 1098 BBB 2 30 2100 2499 LOL FBSB1 
3771 2100 38B 0 0S 2502 4927 LOX INCUQ 
> 3772 2502. uB8B 9 70 1904 2707 : ADDR 48999 = ==90000 
| 3773 2707 88B 0 30 0888 4357 LDL a8 ASM33 
3774 2499 888 9 28 #4396 2748 Feset LDA UNTQU 
D 3775 2748 BBB 0 70 2350 2353 ADD 81GO3 
- 3776 2353 88B 0 24 O000 2688 BUFL o000 
3777 2688 8BB 0 64 Q000 00cB STAL 0000 Ri 
 ) 3778 2312 888 0 50 0379 0581 FeSUB STL EXIT? 
3779 056) BBB 0 20 0oz2 2888 BUF x9 
3780 2858 888 0 30 0690 4260 LOL CONST 
) 37a1 0690 888 0 05 1892 072 LOX CASIN 
| 3782 1892 B8B U 25 OQ00R 2496 | LOA AL 
ogwe 3783 2496 888 0 70 1298 oO101 ADD BIG24 
D 5252 3784 0101 888 0 30 2303 4357 LOL ASAS3 
nZse 3785 2503 888 0 25 1380 1182 LOA 10080 
yope 3786 1182 885 9 30 1384 4359 LOL ASH2 
Diese 3787 1184 8BB 0 25 0288 9890 LDA TMP1S 
Gr we 3788 J890 BBB 9 70 4097 2300 ADD KONI 
550% 3789 2300 BBB 0 60 0288 1290 STA TMP13 
ess: 3790 1290 8BB 0 70 2092 1295 ADDA 58999 g0900 
FOze 3791 1295 888 0 30 0379 4357 LoL EXIT? ASH33 
bene 3792 4150 888 9 30 4i4uo 1792 WORTN LUL NOARMX RETRN 
20 2ftz 3795-1792 -8B8B VU 25 «2287 «473% RETRN LOA XLINE GOTO | | 
19 -SES2 - 3794 0594 B88B Uv 30 4095 3n88 INIT LOL KON2 2. INITIALIZATION AND TERMINATION 
1B 2b ka 3795 3088 GBB 0 25 1363 2365 LDA HEAD Zi 1S ENTERED AT THE BEGINNING OF EACH 
7D F53kz 3796 2365 88B J 87 1768 1968 TGR IF PROGRAM AND SUBPROGRAM, 
16 526 R5 3797 1968 388 4 50 0773 1775 STL WARN Zie SET UP HEADER TaBLE a 
15 Eg80z 3798 1775 388 9 07 0050 1768 IIR 0050 LF THE HEADER CARO INFORMATION IS KEPT IN 4 50> 
sO ne 
13 wp Oe 
iD e289 
Io oF ha 
eo fyo8s 
a@® 2523 
ed 
6 215 6S 
oD gee 
ee 
e230 


Flare. 
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SO ho HAN @ O 


2799 
38900 
2801 
3802 
2805 
2804 
3805 
2806 
3807 
3808 
3809 
3810 
5811 
9812 
3813 
B14 
3815 
2816 
3817 
3818 
2819 
3820 
2621 
2822 


os 


3824 
3825 
3826 
3827 
3828 
829 
3830 
5831 
38 32 
3835 
3834 
3835 
3836 
2837 
3838 
2839 
2840 
2841 
2842 
2843 
IBu4 
2845 
2B46 
2847 
32848 


1768 
2726 
213} 
2565 
0769 
1371 
O774 
i3ser7 
1179 
1762 
2489 
2094 
l7eg 
1147 
2172 
O974 
1980 
2689 
2294 
2697 
0501 
2503 
2699 
1923 


a6 55 


2729 
2529 
2869 
0737 
2180 
3089 
0749 
1145 
1927 
1779 
Q705 
2710 
2713 
2316 
2123 
2552 
2752 
2956 
1959 
1890 
18938 
2512 
2090 
2712 
2350 


886 
388 
388 
888 
38B 


BSB i 


388 


woo 


888 


88B | 


BBB 
886 
888 


BSB : 


3868 
8B 
385 
BBB 
388 
SBB 
88B 
88B 
88B 
886 


ania 


385 
BBB 
888 
888 
358 
388 
38B 
888 
38B 
BBB 
886 
388 
BBB 
BBB 
888 
3BB 
8BB 
BBB 
888 
jBB 
B88 
38B 
BBB 
888 


BBS 


eccoccecccoceccccocacccccoccaccocccoceacococe cooc¢ececece 
$ 


2324 
0008 
1363 
1367 
1371 
4038 
4427 
i224 
3099 
4600 
2491 
4292 
0099 
4420 
0974 
1420 
0000 
2491 
2697 
2699 
2503 
4420 
4420 


(2926 


2529 
4097 
0027 
4655 
4928 
4579 
4088 
21453 
i924 
4577 
0503 
0508 
0004 
2316 
2125 
1750 
1750 
9999 
1959 
44O8 
4196 
&4O8B 


0231 


4408 
4198 
4277 


2726 
2131 
2565 
9769 
2989 
O774 
1179 
i956 
1782 
2489 
2094 
1744 
L147 
2172 
Q00A 
1980 
2689 
2294 
2699 
0301 
4229 
2172 
1923 
2926 
2729 
1147 
2889 
0737 
2180 
35089 
QO740 
1145 
1927 
1779 
0705 
2710 
2713 
2316 
2123 
2552 
2752 
2956 
2316 
1890 
1898 
2512 
2950 
2712 
2354 
1979 


9 
INITT 


STA 
SUB 
STA 
LOL 
LOX 
IIR 
STA 
ALF 
IIR 
STA 
LOX 
STX 
IIR 
STA 
ADD 
LIR} 
LOL! 
LDA 
TGR 
LOX 
LOL 
LOA 
LDA 
CLL 
TEQ 
SUB 
STL 
STL 
STL. 
STL 
STL 
LOXA 
STX 
LOX 
STX 
STX 
LIRI 
CLL 
CLA 
BUF 1 
STAI 
IIRL 
TEQ 
LDA 
STA 
ADD 
STA 
ADD 
STA 
LOX 


HEADIL 
Ru 
HEAD 
aF 


NOOOS 
NWORD 
MALN® 
MEML I 
MEML 

MEMUL 
MEMU 

0099 
TEMPS 


20000 
0000 
MEMUI 


ar 


TEMPS 
TEMPS 


LF 
KONI 
LEVEL 
AVATL 
RWORD 
IWORD 
DUMMY 
60090 
FS 
B10 
POL03 
P0106 

0004 
iF 


woody 
wO00U 
9999 


BrGol 
UNIQU 
BIGOl 
BAND 

BrGOl 
COMON 
BIGSY 


NAME 


INITT 


iF 


RA 


aF +02 
REM 


EC 


00000 
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POSITION CIRCULAR TABLE> IF MORE THAN 50 
TOTAL ITEMS ARE PUT IN», A FLAG IS SET 
SO THAT LOAD-ANOD-GO OPERATION IS OISALLOWCD, 


CLEAR SYMBOL TABLE 
ALL SYMBOLS EXCEPT RESERVED WORDS AKE 
REMOVED FROM THE SYMBOL TABLE, 


INITIALIZE COUNTERS 

VARIOUS THINGS ARE RESET: EoGe SUBROUTINE 
PACKAGE REQUESTS+ STORAGE ALLOCATION REQUESTS 
COUNTERS ARE SET UP TO INDICATE A MAIN 
PROGRAM: THESE WILL BE EFFECTIVE UNLESS 

A FUNCTION OR SUBROUTINE DECLARATION FOLLOWS. 
START COMPILING BY TROTTING FORTH TOAG). 
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QO bh 





Suuy 1979 BBB 2 65 4454 2290 STX NZONS 
3850 2290 886 9 05 4623 2525 LOX wlGOs 
5851 2525 88B 0 65 4094 2146 STx 4094 
- 3852 2146 BBB 0 65 4096 2798 6TX¥ 4096 
~ 3855 2798 88B 9 65 4O9n 2490 STX HO9s 
3854 2499 «6©8B8B Y 50 «6«4374)~« (2127 STi, OLOL. 
3855 2127 888 9 50 4701 2553 STL TEMPS 
2856 é$53 stb Y UF OCOOe 1957 IIR 0004 
3857 1957 8868 0 60 4aso 1982 STA NxXLOC 
3858 1982 88B 9 07 oOO1O 1785 IIR 0010 
3859 1785 888 0 60 2287 269n STA XLINE 
3860 2690 8BB 0 07 4183 2494 IIR $0003 
3861 2494 8868 0 60 4980 2732 STA aASMST 
3862 OFF 9000 
3863 *ee OFF am OFF 9001 
3864 *KH OFF #& OFF 9002 
3865 IK OFF #% STL ROLL4 
3866 ON 9000 
3867 ‘ON 9001 
3868 ON 9002 
3869 OFF 98001 
3870 OFF 9002 
3871 2752 388 9 50 0928 2130 STL RO128 
3872 en Sytieenant ~ | ON 8001 
3873 ON 8002 


3874 2150 884 
2875 2534 885 
3876 4143 988 
2877 1345 888 
2878 1347 8858 
3879 1749) «= BBS 
28560 2910 3888 
2881 2890 #888 
2882 2912 885 
3885 2516 8BB 
3884 2114 #886 
2885 2917 88B 


O02 1520 2334 LIR2 MODE 

O68 1190 4146 LIR3 RAND NORMX 

30 1345 1792 WOEND LOL RETR Z50.eEND 1S SENSED 

390 1347 1627 LOL ADDNX AN END CARD MEANS WE SIMULATE A RETURN 
39 1749 195) LOL ASM50 STATEMENT (IeEse GO TO EXIT). 

25 0908 2910 LO4 RwOl 

25 0009 2890 ERS HS 

60 0908 2912 STA RWD1 

25 2114 2516 LDA 1F 

20 2324 OO00A AUF HEADIL RA 

02 0000 2917 1 LIRZ 9000 Z5iePUNCH HEADERS 

25 0231 3090 LDA BAND PUNCH AND PRINT HEADER INFORMATION. 


cer ccocorcecececcr CcoeCccCCOoOC oe 
~ 
© 


- 3886 3090 888 4541 1944 ADD KN200 
38387 1944 8868 0 05 4198 2580 | LOX COMON 
38a8 2550 88B 0 32 oOY400 2157 SHR O400 
3889 2157 BBB 0 35 UuT24u 2576 ERS XC 
3890 2576 88B 0 20 2178 2380 SUFH 71000 1000 
3891 2380 888 1 60 1547 1949 STA2 09998 
3892 1949 BBB 0 25 4196 2998 LOA UNIQU 
3893 2998 888 v 37 0200 2691 SHL 0200 
3894 2691 88B 0 32 0600 2500 SHR 0600 
3895 25U0 1 dB8B 0 35 3023 2891 ERS XMC 
3896 289) BBB 9 20 2212 3091 BUF BIG4O 
3897 3091 38B 1 60 1548 2755 STAZ 09999 
3898 2750 388B 0 06 2753 2753 CLX 
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Stand WUniwvac. 
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sa 
bd 


- 3899 


3990 
3901 
5902 
3905 
3904 
3995 
2906 
3907 
5908 
3909 
3910 
2911 
S912 
9915 
S914 
3915 
39 16 
3917 
9918 
3919 
3920 
3921 


S922... 


3923 
39248 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
35933 
3934 
3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 
2943 
9944 
2945 
9946 
5947 
5946 


2753 
2155 
2159 
1903 
0905 


2357 
250) 


2913 
2154 
2154 
2757 
2179 
0781 
2333 
2953 
2957 
2160 
2163 
2557 
2359 
2263 
2765 
2761 
2292 
2696 
2694 
2899 
0937 
2378 
2492 
1971 
1973 
2581 
2580 
2162 
1984 
0786 
Q794 


386 
388 
388 
BBB 
B86 


ce 
ee 
eR 
eH 
ae me 
em 


886 
888 


386 
3BB 
886 
B86 
688 
BEB 


ec 
‘ha tok So 


3BB 
abe 
866 
888 
386 
88B 
8BB 
888 
Bab 
388 
38B 
386 
BBB 
366 
886 
BSS 
388 
BBB 
886 
688 
388 
888 
3BB 
886 





wv 3Q 
25 
Q 05S 
Y 60 
v 65 


UFF x™ 
UF PF «me 
OFF #™ 
OFF «* 
OFF + 
OFF 4% 


0 64 
Q 31 


25 
a1 
B2 
05 
m1?) 
25 


=n 
ww 


07 
3] 
Be 
02 
30 
25 
05 
30 
25 
30 
82 
82 
30 
50 
30 
85 
70 
16 
67 
30 
30 
30 
16 
67 


COCocecoeoceocececooce cecrcecrcre coor 


2155 
2357 


2561 
0503 


0508 


ATFA 
0200 


1549 
2154 
2557 
4577 
0781 
1549 


3H 2 
Ge Fat I 


9999 
2160 
2165 
0050 
2359 
2761 
2765 
0135 
QOL! 
2694 
2899 
6638 
0501 
1976 
0050 
2894 
1973 
0049 
3333 
2182 
1964 
0786 
0017 
333553 





2156 
2159 
1963 
0905 
2913 


2760 
1110 


2151 
2154 
2757 
2179 
4533 
2351 


it R wap 
“Tut 3 f 


2957 
2160 
2913 
2913 
i951 
2363 
9337 
J937 
2292 
2696 
O594 
SAO] 
0937 
2374 
2492 
1971 
QOOA 
2580 
000a 
1784 
1784 
1784 
9790 
QOOA 


*LOAD 
PASS2 
POUT 


&POT 
-POT 


&POT) 





LOL 


LDA 


LOX 
STA 
STX 
OFF 
NUM 
ZON 
OFF 
OFF 
OFF 
OFF 
ON 
CON 
CON 
ON 
ON 
ON 
ON 
LDA2 
CLL 
TEQ 
LOX 


LOL 


LDA 


with. 
IIR2 
CuL 
TEO 
LIR2 
LOL 
LDA 
LOX 
LOL 
LOA 
LOL 
TEQ 
NUM 
LOL 
STL 
LOL 
MUL 
ADD 
PFD 
HLT 
Lut 
LOL 
LOL 
PFT 
HLT 


iF 
2F 
PO1L0S5 
P0106 
9000 
(HEAD 
(HEAD 
8002 
8001 
9001 
9002 
9000 
O4ATF 
31020 
9001 
9002 
aoodl 
8002 
00000 


JF 
810 


90000 
9999 


0050 
LF 


CHALT 
HWD1 
*LOAD 
PASS2 
*B00T 
HALT 
EXITs 
LC 

iF 


0O49 
3333 


O01? 
3335 


SREAD 


oF 


ER>) 
ERS) 


A27GO 
01110 


INIT 
L Ol 
POUT 


RA 
“POT 


ASA5C 
ASMSC 
AS45C 
~PoTl 
RA 


Z52eREA) NEXT CARD 

EMPsIF WO MORE INPUT CARDS ARE IN THE EUFFER,: 
PUNCH OUT SEVERAL BLANK CARDS ANDASTOP, 

LOADIF THE NEXT CARD IS THE BEGINNING OF RPASS21 
TRANSFER TO THE SECOND PASS UNLESS AN ERROR 
OCCURRED IN THE PRECEDING PROGRAMSe. 

OTHSOTHERWISE WE GO TO#Z1 TU PROCESS ANOTHER 


G SUBROUTINE TO EVECT CARDS ANO PAPEK 
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3949 9790 B8B v le COKE 0794 ~POTL PFD O00Bo ePyT2 
az 3950 3795 888 4 67 3333 900A POT 2 447 3335 RA 
LR 3951 2794 3888 5 30 1976 1784 -POT2 LOL ExITé ASMSC 
2 3952 2894 888 100 0050 9000 1 70rt 90005 00000 
5a 3953 9501 888 5 25 6773 1975 HALT LDA WARN 
D §>< 3954 1975 3B8B 4 70 COON 2780 ADD RA ~PaS2 
za 3955 276, 88B 3 05 2383 1985 &PAS2 LOX iF aF 
® 4i3 3750 1905 BY 72 GOUC 900¢ 2 HCC RX RX 
D bis - 3957 2383 S8B8B vo 42 0787 1985 ! H6T 28 
$a 5956 0787 a88B 2 96 0000 2692 HBU HOW2 
aE 3959 2692 8BB 9 72 OOOA 1895 HCC RA 
Dg: 3960 1895 BBB 0 96 0000 2992 HBU HOW2 3F 
3961 2892 88H 0 07 2896 2095 3 IIR 2F 
| 3962 2095 88B 0 60 2892 278; STA 38 &PAS2 
D 3993 2896 «BBB 1 :07°«1s48 2700 2 TIR2 09999 
3964 2700 ##8B 09 08 Q000 0021 LIRi 00006 HOws 
3965 2789 «6©65BB 0 67 «GAZA (OA2A ~PAS2 HLT  OA2A OA2A 
» 3966 1784 8BB 0 50 4568 3092 ASMSC STL EXIT2 LF 
3967 3092 88B 0 26 2495 2495 1 CLA 
3968 2495 8BB 0 30 2897 4337 LOL 2F ASMS5 
D 3969 1951 BBB 0 50 4568 2897 ASMSD STL EXIT2 2F 
3970 2897 3B8B 0 07 4181 2900 2 IIR 50001 
3971 2900 888 9 30 4980 2932 LOL ASMS5T 
D 3972 2952 38B 0 82 4568 3092 _ TEQ EXITe is 
. 3973 2491 888 9 00 4o00 90000 MEMUL JMP  MEMUd 0900 
2974 4514 8B 005 2780 2382 ALARM LOX =PAs2 G E€RROR PRINTOUT sUEROUTINE 
> 3975 2382 88B 0 65 O501 1628 STX HALT PANIC 
a | 3976 | | OFF 003 
3977 OFF 9000 
> 3978 eee OFF 4 OFF 9001 
3979 ae de PANIC LOX HILO PRAT 
3980 *eK OFF 4k KON#*E LIRi Q0034 BINSS 
i] 3981 wee OFF ax WoEQU LOL NORMX BED 
| 3962 eee OFF xe OFF 9002 
Ogu a 3983 eke OFF xx OFF A002 
D sere 3984 ON 9000 
nese 3985 ON 9001 
pee 3986 ON s001 
D cee 3987 4012 8B 0 07 +0001 3094 coou2 IIR 0001 Es EQUIVALENCE DECLARATIONS, 
Giul 3988 3094 BBB ¥ 60 4209 2314 STA TEMP2 IT [8 ALMOST IMPOSSIBLE TO EXPLAIN HOW THE 
5b 508 3949 2314 888 0 26 I91R 1918 CLA PROCESSING OF EQUIVALENCE DECLARATIONS 
Dress 3990 1918 BBB Y 60 4420 2323 STA TEMPS WORKS IN THIS COMPILER. IT DOES SEEM TO | 
2535 3991 2323 BBB U 25 4631 2534 LDA TEMPL aF WORK+ HOWEVERe EQUIVALENCE CLASSES ARE KEPT 
eee 3992 2534 688 005 OOOA 193” 2 LOX RA IN CIRCULARLY“LINKED CHAINS. IT 1S EASY TO 
2c zihé 3993 1938 BBB 09 70 4974 2977 ADD 81G10 =ASN2 MERGE TWO CHAINS INTO ONE, WHEN AN ITEM 
85852 3994 2978 BBB 0 35 47u1 9593 RASN2 ERS XMH OF a CHAIN IS FIRST REFERENCED aFTER AN 
16 o2bee 3995 0593 88B Uv 75 4623 2695 SUB BIGOS EQUIVALENCE DECLARATION) WE GO TO Ele FURMATS 
7D Fak: 3996 2695 688B 9 60 4624 2327 STA TEMP4 OF THE CHAIN ENTRIES APPEAR IN THE TABLE | 
16 526 e5 3997 2327 888 9 70 42u9 1362 ADD TEMPe OF FORMATS~ 
IS Egk0z 3998 1362 B8B »v 31 2965 2965 cuL Ele SEARCH THROUGH CHAIN 
4D pede 
wh O ee 
rEr "oO 
wm eokee 
‘ Z3%O 
3 sees 
9 §y05< 
sD BE Oy 
7 Saiue 
a eo eee 
zu5Eh 
a3 ge 
rZ30 
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43 3999 
4000 


4OO1 
4002 
4003 
4Oo4 
4005 
uOgs 
4007 
4OQ8 
4009 
4010 
4011 
“O12 
4043 


4o14 


4015 
4016 
4Q17 
4018 
4019 
4020 
4021 
4O22 


4025 


4024 
4025 
4026 
4027 
4026 
4029 
4030 
4031 
4032 
4033 
4034 
4O35 
4036 
4037 
4038 
4039 
4040 
4Oul 
4Ou2 
4043 
4o4a 
4045 
4046 
4047 
4O48 


2965 
2108 
3096 
2514 
25<3 
2578 
i781 


1oms 


aows 


2977 
3098 
1705 
2098 
2714 
2118 
2171 
LL74 
2778 
2298 
2703 
2723 
2527 
2980 
2895 
3097 
3099 
2754 
1157 
2948 
1762 
0566 
2173 
2399 
2498 
2954 
0766 
1992 
1946 
2698 
2702 
2914 
2898 
2546 
2354 
0701 
0555 
2345 
1901 
1905 
2728 
2343 


808 
386 
388 
388 
888 
388 
886 


228 


888 
888 
BBB 
888 
388 
B88 
856 
B58 
BBB 
868 
688 
BBB 
3BB 
888 
358 
363 
3BB 
868 
BBB 
888 
BBB 
888 
BBB 
B58 
388 
868 
386 
BBB 
858 
BBS 
88B 
8BB 
888 
888 
386 
BBB 
888 
BBB 
BBB 
3BB 
38B 
BEB 


eeccecccceccocoocacetaoecceccceccecaccaeccocoaoceacecoceuceceoc§ce 


2096 
0001 
4209 
4420 
4624 
1181 
4Uu2n 
+4e0 
4603 
0400 
0043 
4209 
2118 
4209 
2171 
HHHH 
0001 
0008 
4420 
2527 
4420 
000c 
0600 
3099 
4631 
1137 
4196 
4259 
1762 
4420 
4196 
4545 
4631 
4u6u 
4740 
0008 
4420 
0000 
4209 
0000 
4392 
0400 
0043 
4631 
4631 
0000 
OOOA 
4974 
“7Q) 
4631 


2168 
3096 
2514 
2523 
2578 
1781 
2895 
£395 
3097 
4705 
2098 
2714 
2171 
2171 
1174 
2776 
2298 
2703 
2723 
2980 
2980 
3097 
3097 
4303 


(2734 


2534 
2948 
1762 
9566 
2173 
2399 
2498 
2934 
9766 
1992 
1996 
2698 
2702 
2914 
2898 
2345 
2354 
0701 
9535 
2345 
1901 
1905 
2727 
2343 
2184 


Wi ee 


“ASN2 
&ASNS 


= ASN 


EGASN 


&EGVS 


=EQVS 
2 


BEGVI 


TOR 
IIR 
STA 
LOA 
SUB 
TGR 
STL 
SIA 
ADD 
SHL 
ERS 
LOL 
TGR 
STA 
ATL 
IIR 
FRS1 
SUB 
LOL. 
TGR 
STA 
LDA 
ShHR 


LOL 


LOL 
TES 
LDA 
ADD 
ATL 
ADD 
STA 
LOA 
STL. 
STA 
LDA 
ERS 
STA 
IIR1 
STA 
LOAIL 
ADD 
SHL 
ERS 
ADD 
STA 
LDAL 
Dx 
ADD 
ERS 
AOD 


LF 
0001 
TEMP2 
TEMPS 
TEMPS 
1F 
TEMPS 
TEMPO 
B1G6o 
0400 


XM 
TEMP 2 
TEMP 


HHHH 
0001 

Ru 

TEMPS 


TEMPS 
0600 
TEMP 1 


UNTIQU 
TEMP = 


TEMPS 
UNTQU 
aASGN) 
TEMPL 
ExITlL 
Xi 


TEMPS 
9000 
TEMP2 
000u 
81670 
O4OU 
KM 
TEMP 1 
TEMP 1 
0000 


BIGLO 
XMH 
TEMP) 





iF 
3F 


6F 


“ANS 


iF 
iF 


LF 


-ASNS 
“ASNS 
BRI 


ti 
ID 


EQaSN 


“EWV3 


“Eavs 
aF 


~EQvil 


+54 


+54 


Ege 


= prem, eee ct cece meet a Remy en iene Ame Sy ten, am 


TRAVERSE THE CHAIN ONCE TO SEE HOW MUCH 
UNIQUE STORAGE IS TO BE RESERVED, 


ASSIGN CHAIN 

TRAVERSE THE CHAIN AGAIN: ASSIGNING EVERY 
VARIASLE IN THE CHAIN RELATIVE TO THE OTHERS. 
GO TOHDEF Xe 
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4O49 2154 688 J 75 4623 2101 $UB sIGo5 
a2 4050 2101 BBB Vv 60 4631 3735 $T*) TemPa 
[DB s: 4051 9755 BBB vy 32 0600 2144 SH> 600 3F 
5 4052 2727 888 2 70 4693 2558 “EGV1 ADD 81GS0 mEWVa 
5 a 4053 2559 88B | 37 Q400 1366 &EQY2 SHL Q4O4u 
> o< 4054 1366 388 2 35 cO43 236} ERS XM LF 
sa 4955 2558 #888 2 07 0001 2301 ~Eov2 lip ool LF 
| a 4U36 <5vl 985 y 75 4631 0935 i SUB TEMP, 
Drs 4057 0935 388 2 77 0935 2138 ATL 
$ 4058 2138 888 0 25 o00C 2543 LOA RX 
2° 6 4059 2543 888 9 70 4392 2195 ADD BIG70 ~EQV4 
: ~ 4060 2196 888 J 25 42u7 2501 &EQVY LDA BIG30 iF 
406) 2195 888 235 4724 aso, ~EQV4 ERS x¢ iF 
| | 4062 2501 88B 0 20 oOO0OR 2105 1 BUF RL 
D 4063 2105 88B 9 64 o000 2701 STAL 9000 
4O64 2701 38B 0 35 4745) 2743 ERS X1 
- 4965 2743 8BB Qg 30 4420 2372 LOL TEMPS 
D 4066 2372 g88 0 82 2175 2375 TEQ 1F 
4067 2375 8BB 0 30 4464 90526 LOL ExITd gED 
| 4068 2175 8BB 0 25 o00C 2144 1 LOA RX 3F 
> 4069 2144 @8BB 9 35 0043 290) 3 ERS XM 
4070 2901 88B 9 30 4209 2915 LOL TEMPe 
4071 2915 88B 0 82 4u64H 2318 TEQ EXITL 
. 4072 2318 8BB 8 70 2923 0004 a ADD. RA 
= 4O73 2923 888 0 08 O000 2345 LIRL 0000 -EQV3 
. 4074 4153 8BB 9 30 2355 275a WDE Qu LOL EaIMD 
D 4O75 2758 888 150 0001 2902 STL2 0001 
says 4076 2902 BBB O 25 3022 2903 LDA OUA 
4077 2903 888 9 60 2220 2104 STA UASW | 
D 4078 2104 BBB 107 O001 2908 IIR2 0001 EQis 
4079 2908 8BB 0 30 2716 4oO44 EQl» LOL SCAN 
4080 2716 888 0 30 4221 2524 LOL LPREN 
D ~ 4081 2524 #6BB v0 82 2927 0526 TEO MLP 
| 4082 2927 3B8B 9 31 2330 2330 CLL 
wo ote 4083 2350 888 1 50 O00! 2304 STL2 0001 
Dire 4084 2304 BBB 0 50 2907 2709 STL RRRR 
nese 4085 2709 888 ¥ 50 2916 2518 STL ZLINK 
yeae 4086 2518 #888 150 oO003 2504 STL2 0003 
< Hor 4087 2504 888 9 30 2400 2704 LOL EQUMD 
re: 4088 2704 B8B 0 05 2909 4235 LDX OFQUs MDOP 
_ 588 4089 2904 BB8B UV 30 440 2943 EQUs LOL NORMX EQSV3 
Desi 4090 2943 4BB U 50 4464 1766 EQSVB STL EXITI E3e "EQUIVALENCE? 
E58 4091 1766 BBB 1 29 0000 2305 LOA 0000 ON THE EQUIVALENCE DECLARATION: VARIOUS 
ae 4092 2305 8BB 270 4301 2554 ADD BIGSO mEwe MODES ARE SET UP. AT THE END OF EACH 
2op ite 4093 2555 BBB 0 30 «2958 9528 REO LOL 8F BED EQUIVALENCE+ A CHECK IS MADE TO SEE IF 
B5Ee2 4094 2554 688 9 30 2759 4833 WER» OL. BR2 ANY OF THE ITEMS WaS PREVIOUSLY DEFINED, 
SDE: 4095 2759 388 v 35 4741 V793 ERS XMH IF S900 THE ENTIRE CHAIN IS THEN DEFINED, 
7D F558: 4096 V793 888 9 05 OCOOA 1797 LOX RA AS IN STEP HE2. 
6 §25@5 4097 1797 88B 0 31 2505 2505 CLL 
8002 4098 2505 888 u 82 2718 2918 TEQ IF 
i> bog Op 
arene 
2 bees 
1 oz5"r 
1s gepES 
9 £,05< 
cy eae 
6 Ze eo 
sD ize 
4 gScy 
eZeu 


? 


_ 


Sg 


bare 


DIVISION OF SPERRY RAND CORPORATION 





o 


PRINTED IN U.S.A. 
PHILADELPHIA, PA. 


IN CONSIDERATION OF THE RECEIPT OF THIS DOCUMENT. THE RECIPIENT AGREES NOT TO 


_ REPRODUCE, COPY, USE OR TRANSMIT THIS DOCUMENT AND/OR THE INFORMATION THEREIN CONTAINED. 
iN WHOLE OR IN PART, OR TO SUFFER SUCH ACTION BY OTHERS, FOR ANY PURPOSE, EXCEPT WITH THE 


' WRITTEN PERMISSION OF SPERRY RAND CORPORATION, AND FURTHER AGREES TO SURRENDER 


. w 
SAME TO SPERRY RAND CORPORATION, UPON DEMAND 


Oo hu on D8 0 


4099 
4190 
4101 
4102 
4103 
4104 
4195 
416 
4107 
4108 
4109 
4140 
4iil 
4142 
G13 
41.4 
4145 
4116 
4117 
4148 
4119 
4120 
4121 
4122 
Gi23 
4124 
4125 
4126 
4127 
4128 
4129 
4130 
4131 
4132 
4133 
4134 
4135 
4136 
4137 
4138 
4139 
4140 
G1yt 
4142 
4143 
4144 
4145 
4146 
4147 
4148 


2918 
2344 
2959 
2162 
2705 
2724 
1128 
29056 
2924 
2718 
2725 
2599 
2799 
29245 
1155 
2776 
196} 
2564 
Q987 
0391 
1787 
1328 
19238 
1335 


— 2360 


1564 
1962 
2128 
2545 
2149 
2546 
2754 
2328 
2551 
1955 
2528 
2551 
2356 
2961 
2976 
2928 
2155 
2999 
2969 
25350 
2355 
2358 
2954 
2730 
2555 


BSB 
838 
6886 
888 
8868 
3868 
888 
3965 
88.8 
88B 
888 
888 
BBB 
888 
388 
yBB 
88S 
8BB 
BBB 
BBB 


BBB 


BBB 
886 
388 
386 
886 
388 
88B 
388 
3868 
B68 
8BB 
38B 
888 
86B 
HBB 
6868 
SRB 
358 
888 
886 
88B 
868 
386 
3BB 
8388 
68B 
3868 
588 
585 


ecccoecccrcoccoacccecaececeoececoccacoce ce tCocOrme OKrcr CCr Cte 


35 


30 


82 
25 
31 
82 
65 
oc 
60 
OG 
30 
60 


32 
35 
05 
26 
82 
OG 
60 
29 
35 
20 


20 
64 
29 
79 
07 
a9 
a7 
35 
77 
07 
35 
82 


60 
70 
20 
60 
25 
31 
50 
82 
Q7 
70 
60 
26 
06 


4740 
4756 
1962 
9999 
2724 
1128 
9999 


AAAA 
Nat Set ah 


9998 
0000 
9997 
9997 
2907 
0400 
H72u 
000A 
2384 
0987 
0000 
2916 
0000 
0435 
QO008 
4756 
oooc 
0009 
0000 
4392 
HHHH 
0000 
0400 
0045 
2528 
HHHH 
2907 
2545 
0008 
4209 
4625 
4301 
4631 
9997 
2929 
2907 
2335 
0001 
4600 
2916 
2535 
2538 


e344 
2959 
2162 
2705 
2724 
2555 
2905 


Se Toh ae 
te F £4} 


2725 
2725 
2599 
2799 
2925 
1135 
2776 
198) 
2384 
1787 
O39) 
1787 
1328 
1928 
1335 
2360 
1364 
2958 
2128 
2545 
aids 
2725 
2754 
2328 
233i 
1935 
2528 
2531 
2336 
2961 
2976 
2928 
2135 
2999 
2929 
2530 
2535 
2338 
2954 
2730 
2535 
2538 


Fue 


“EQLs 


BEGLe 


ERS 
LOL 
TEGO 
LOAe 
CLL 
TEQ 
STX2 
Timi 
STA2 
TIR1 
LOL2 
STA2 
LOA 
SHR 
ERS 
LOX 
CLA 
TEQ 
TIR2 
STA 
LDAIL 
ERS 
BUF 
BUF 


BUF 


STAL 
LDAL 
ADD 
IER 
ERS1 
SHL 
ERS 
ATL 
IIR 
ERS 
TEQ 
SUB 
STA 
ADD 
BUF 
STA 
LOAd 
CLL 
STL 
TEQ 
IIR 
ADD 
STA 
CLA 
CLX 


Al 

y7G0<e 

eF 
9999 


9999 
Oud, 
9998 
000” 
9997 
9997 
RRRR 
0400 


RA 


0000 

ZL INK 
9000 
xCO 


B1G0e 


RX 
0000 
0000 

BIe?7eu 
HHHH 
0000 
0400 

XM 


HHH 
RRRR 
~FQL* 


RL 
TEMP2 
BIGOS 
B1G90 
TEMP 
9997 


RRRR 


0001 
MEML. 
ZLINK 
iF 


&EQs 


3F 
oF 
4F 


LF 


iF 


&F 
#~EQis 
38 


LF 
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i te 


4149 2558 888 0 32 0400 1745 SHR 0400 
4150 1745 88B J 20 4631 2583 aUF  TPEMPL 
4151 2583 888 0 77 2583 1786 ATL 

4152 1736 888 907 0001 O749 Tip ovOl 


4455 9789 88a 
4154 2950 388 
8155 2572 386 
4156 1774 «a@RR 
4157 273) 888 
4158 2575 888 
4159 293; 888 
4160 2755 888 
4161 2783 3888 
4162 1986 ysB8 
4165 2755 388 
4164 2544 3BB 
4165 2983 8688 
4166 2166 3888 
4167 0989 388 
4168 2955 6888 
4169 2952 888 
4170 2955 888 
4171 2556 885 
4172 2560 688 
4175 2958 886 
4174 20¢8 386 
4175 2756 #6886 


70 46090 2939 ADD MEML 

60 4420 2572 STA TEMPo 

70 L774 9g00A aDD RA 
SO $006 e731 STL og0ov 

25 4623 2575 LDA #8IGO5 

75 4209 2934 SUB TEMP2 

20 4301 2755 8UF 81690 

60 4631 2783 STA TEMP 

O07 HHHH 1986 IIR)  HHHH 

39 9000 2735 ERSL 0000 

32 o400 2544 SHR 0400 

20 4631 2983 BUF TEMP1 

77° 2983 2186 ATL 

07 0002 0989 IIR 0002 

70 4600 2935 ADD MEML 

60 4600 2952 STA MEML 

79 2955 Q00a ADD RA 
50 Q000 2536 STL 0000 

25 4600 2560 LDA MEML 

30 4420 2599 LOL TEMPS 48 
0G $995 4uéy 8 IIR3 9999 EXIT! 
29 0000 2736 AEQU LDA3 O00 G CHECK THAT SUOSCRIFT WAS CONSTANT 
30 1051 2936 LDL COoNOo 


4176 2956 888 2739 2939 TEQ iF 3F 
4177 2939 888 0 30 2141 0528 3 LOL 2F 8ED 
4178 2759 88B i 25 9999 1337 1 LODA2Z 9999 

4179 1357 888 0 70 4097 2950 ADD KONI 

4180 2950 BBB 9 30 1815 1937 LOL FORSS 

4181 1937 BBB 0 87 O940) 2939 TGR 38 
4182 09490 888 Uv 60 2907 2141 STA RRRR 2F 
41g3 2141) 888 107 $996 1948 2 IIR2 9996 

4184 1945 6BB 1 0G 9999 2349 IIR3 9999 

4185 2349 888 0 O07 HHHH 2760 TIR  WHHH 

4186 2760 BBB 1 39 O000 2137 ERS3 0000 

4187 21357 #888 1 64 gO000 4140 STA3 0000 NORMX 
4188 4156 8BB 9 30 2960 294% EGU LOL EQSV3 
“189 2960 888 0 25 2916 2337 LDA ZLINK 

4190 23537 888 JV 31 1140) 1146 CLL 

4191 1140 8BB v B2 2744 2944 TEQ 4F 1F 
4192 2744 88B 0 30 2746 9528 4 LOL SF BED 


oo 
N 


4193 2944 988 30 2946 464) ! LOL BR 
4194 2946 886 70 QOQGA 2562 ADD RA ~EQUE 
4195 25035 688 25 9997 2537 &EQUS LDA2 9997 

4196 2537 #8BB 06 1340 13409 CLX 

4197 1540 888 32 QHOO 1747 SHR O40 LF 
4198 2562 888 25 9997 1747 ~FQU® LOAZ 9997 LF 
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GIGY 1747 388 
4200 2757 888 
42Q1 2957 3868 
4202 2758 388 


24 0000 2737 i BUFL o0QU 
64 Q000 2937 STAL 0900 
30 9999 2738 LOL2 9999 
26 2341 2341 CLA 


w 

v 

i 

fe) 
4203 2341 388B 9 B82 2746 2146 TEQ 8F 
4204 21458 388 0 25 0054 2938 LDA 81G04 
4205 2938 888 0 87 254; 2744 TGR 4B 
2s 254) O85 3 25 $958 i740 LWwAcg 9990 
4207 1740 88B 0 20 2745 O00; BUF RA 
4298 2745 88B 0 08 0000 2551 LIRA o000 
4209 2551 g8B 0 25 2746 2498 LOA 8F EQaSN 
4210 2746 888 1 07 9996 4140 ) IIR2 9996 NORMX 
4211 = FQUS EQU MRP 
4212 1856 88B 109 9999 1949 KONE LDX3 9999 G ROUTINE FOR N®() WHERE N IS a COSTANT 
4213 1940 8B8B 9 32 0100 2945 SHR 0100 
4214 2945 888 0 70 OOCA 2762 ADD RA “MUL 
4215 2762 BBB 0 32 0300 2368 MUL SHP = 300 
4216 2368 88B 0 70 O00A 2373 ADD RA =MJL 1 
4217 2374 88B 0 07 HHHH 2379 &MUL 1 IIR) -HHHH 
4218 2379 BBB i 39 9999 2149 ERS3 9999 
4219 2140 3BB OY 70 1947 0004 ADO RA 
4220 1947 8BB y 25 ooo! 2346 LDA ov01 
4221 2340 g8B YU 31 2147 2147 CLL 
4222 2147 8868 0 82 1814 2751 TEQ ANSL 
4223 2751 BBB UY 06 2362 2362 CLX 
4224 23562 yBB 32 O8500 1776 SHR 0500 
4225 1770 BBB 0 82 2573 2773 TEOQ If 
4226 2773 888 vy 32 O100 2579 SHR = oL0L 
4227 2579 BBB 0 82 2582 2782 TEQ af 
4228 2782 G8BB Uv 32 0100 2386 SHR 0100 
4229 2386 8BB 9 B2 1789 1989 TEQ 35 
4230 19469 4B8B 9 32 0100 1793 SHR 0100 
4231 1793 8BB 12 2396) «2763 TEQ uF & MUL 
4232 2582 88B 0 07 O100 2573 2 IIR 0100 IF 
4233 1789 8B8B 8 07 0200 2573 3 IIR 0200 1F 
4234 2396 8BB 0 07 +0300 2573 4 IIR 0300 1F 
4235 2573 888 v 60 2775 2779 1 STA PAR3 
4236 2779 888 0 30 oQoOr 2584 LUL RX 
4237 2544 888 0 25 4974 25406 LDA BIG1U 
4238 25490 688 0 82 2347 2547 TEQ UF 
4239 2547 888 2 70 OOOA 2962 ADD Ra 
4240 2962 BBB UV 82 2347 1966 TeEQ IF 
4242 1966 888 2 31 0969 9969 CLL 
4242 0969 4BB UY 25 4305 2740 LOA LITA 2F 
4243 2740 8BB Uv 32 0900 2963 a SH2® = 090U 
4244 2963 BBB v 82 2166 2366 TiN @F 
4245 2366 88B 032 OFOO 2740 SH = OF O00 26 
4246 2106 BBB 0 25 ooOt 1970 2 LOA RX 
4247 1970 888 0 30 2772 4269 LOL CONST 


COCoccecececeeccoceececcececocecacectceccacce 
& 
hi 


4248 2772 388 OG oO009 2979 Tyr 0000 





es eee ee ee ee ee een Sereeatls, simatic, ines ace cba aati, carer mmaita) penises eateries 








4249 2979 BBB Y 20 4723 2940 BUF KONed 
z 4250 2940 BBB i 64 9999 2744 STAS 9999 
rE 4251 274, 3888 3 06 2747 2747 ALY 
< - 4252 2747 BBB ) OB 1716 2954 LIRI1 VOule 3F 
7 5a 4253 2347 8868 2 0B 1720 2951 1 LIRL yoo2u 3F 
3 | as 4254 2951 8BB 1 0G 9999 1764 3 Tims 9999 
a co 4255 1764 yBB 1 29 Cool 2941 LOsS O00) 
IE za 4256 294) wth 9 30 4215 2004 LOL  OPx UNOP 1 
c aS 4257 2763 888 9 08 1034 9199 &MUL LIR1 Q0034 BINSB 
cs St 4258 2373 888 4 OB 1034 9199 ~MUL 1 LIRL [0034 SINSB 
6 4259 1316 8BB8 Y 07 0100 2947 10016 IIR 0100 1F 
: 4260 2947 B8B Y 70 2775 2184 1 ADD PAR3S 
4261 218; 888 0 70 2784 9939 y ADD 8YG37 TAS32 
4262 1317 BBB Y 25 O104 2549 10017) LDA PARI 
4263 2549 888 0 30 1178 238; LDL 81620 
4264 2361 8B8B 0 82 2984 2185 TEQ 2F 
4265 2984 88B 0 25 2586 9588 LDAA 70000 AQQ00 
> 4266 0588 BBB 0 30 2185 4556 LOL 2F ASM32 
4267 2185 888 9 30 2775 2981 2 LOL PARS 
| 4268 2961 BBB 0 26 2385 2385 CLA 
a 4269 2385 BBB 0 82 0130 2947 TEQ IX 1B 
4270 1628 8BB 0 50 2566 2568 PANIC STL ~ALRM 
4271 2508 SBB 9 0B 1250 2374 LIRi 10000 SF 
2 4272 23571 BBB 0 06 1974 1974 5 CLX 
eee 8 baz 1974 BBB OU 32 0800 2585 SHR 0800 
; 4274 2565 888 9 65 1987 2180 STX wns 
| » 4275 2169 BBB U 37 Cu0N 2596 SHL 0400 QF 
ete: apaee 4276 2596 888 0 60 2749 1964 4 STA WO | 
4277 1964 B88 0 70 2766 0004 ADD RA 
> 4278 2766 8B8B 0 25 1650 2949 LDA 3000u 
| 4279 2949 888 0 60 2164 2966 STA ALF 
| 4280 2906 BBB 0 06 1369 1369 CLX 
 #p 4281 1369 88B 0 32 Q500 2982 SHR 0500 
| 4282 2982 3BB 9 37 0500 0990 SHL 0500 
oe ott 4283 0990 888 0 04 0000 9000 JMP1 0000 
Dire 4284 1256 888 9 60 0533 2364 10006 STA THETA LF 
Ze 4285 1254 @8BB 0 60 0833 2364 10004 STA THETA iF 
Boao 4266 1252 888 »v 60 0533 2364 10002 STA THETA iF 
Deis. 4287 1250 BBB 9 60 0533 2364 10000 STA THETA 1F 
GF ul 4288 2364 B8B 0 65 0139 2564 1 STX CHI 3F 
959% 4289 1257 888 0 32 0500 2764 10007 SHR 0500 ar 
De e38 4290 1295 38BB 2 32 0500 2764 10005 SHR 0500 2F 
Fore 4291 1253 3BB 0 $2 0500 2764 10003 SHR 9500 2F 
_ gee. 4292 1251 68B ¥ 352 0500 2764 10001 SHR 0500 2F 
2c DP ztts 4293 2764 BBB 0 20 0533 2964 2 RUF THETa 
19 38852 4294 2964 8BB 0 32 OF00 2785 SHR OFOO 
i825 EG 4295 2785 9888 J 20 0139 1767 BUF CHI 
7D Fess: 4296 1707 BB 0 04 Q008 0008 JMP1 0008 
is §25@5 4297 1205 888 29 60 0650 1967 10015 STA 20050 
© seks 4298 1967 886 9 65 0655 2564 STX 20055 3F 
149 99355- 
13 maakt 
2 EERE 
WD 23009 
10 oF ia 
9 §,08¢ 
7 8822 
6 250% 
4 ESEs 
3 UZ3G 
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4299 


4390 


43G1 
4302 
4303 
4304 
4305 
$306 
4307 
43908 
4309 
4310 
4341 
4312 
4343 
4344 
4345 
4316 
4317 
4318 
4319 
4320 
4321 
4322 


(4323 


4324 
4325 
4326 
4327 
4328 
4329 
4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4340 
4341 
4342 
4543 
4344 
4345 
4346 
4347 
4548 


1263 
2167 
126] 
2567 
1259 
ale7 
2564 
2705 
2967 
2969 
2972 
2968 
1258 
1769 
2170 
1969 
2169 
2369 
2567 
0739 
0623 
0708 
0646 
0730 
OOl14 
0699 
0783 
667 


3865 
$88 
BBB 
B8B 
B86 
BBB 
388 
ado 
686 
BBB 
8BB 
888 
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